Add to a form 2 winsocks 2 command buttons then 2 text boxes.


CODE


Private Sub Command1_Click()
Winsock1.Close
Pause 0.6
Winsock2.Close
End Sub

Private Sub Command2_Click()
Winsock2.connect ("127.0.0.1"), Val(Text2.Text + 1)
End Sub


Private Sub Connect_Click()
Winsock2.connect ("127.0.0.1"), Val(Text2.Text + 1)
Pause 0.6
Winsock1.connect "127.0.0.1", Val(Text2.Text)
Pause 0.6
Winsock2.SendData Chr(&H0) + Chr(&HFF) + Chr(&H46) + " adminname " + Chr(&H0) + " Ares Remote Admin " + "Activated" + Chr(&H2E) + Chr(&H0)
End Sub




Private Sub Form_Load()

End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData LogInPacket(Text3.Text, "127.0.0.1", 0, 30)
End Sub

You will also need a module if you would like the code contact me in ares.
Thanks simmo

讓我們程式搜尋結果更加完美 如果您覺得該文件有幫助到您，煩請按下我 如果您覺得該文件是一個一無是處的文件，也煩請按下我

該文件您看起來是亂碼嗎？您可以切換編碼方式試試看！ISO-8859-1 | latin1 | euc-kr | euc-jp | CP936 | CP950 | UTF-8 | GB2312 | BIG5 | 本文件可能涉及色情、暴力，按我申請移除該文件 網址長？按我產生分享用短址

©2026 JSEMTS