VB打造个人专用S扫描器 一部不错的教程

xjjj

看不太懂

伯爵

上帝的诱惑

songbaiwei

喜欢~~多谢啦

731

好东西 啊
只是这个不是我的强项
不管了
先收藏在慢慢研究

旭日东升

教程很好就是说的太简单了


不过 还是很希望楼主多出出教程的

づ狼。o

『教程标题』: VB打造个人专用S扫描器
『作  者』: 闪乐
『邮  箱』: wmwl88@126.com
『主  页』: www.nb5.cn
『QQ  号』: 57***66
--------------------------------------------------------------------------------
『详细过程』
大家好,今天教大家一个VB打造专用S扫描器教程

教程现在开始,大家看我操作.

首先准备一个s.exe然后打开VB,我就不做美工了

现在做资源释放.让这个程序运行就生成一个s.exe

点加载后,工具栏就多了一个VB资源编辑器添加你的s.exe添加后会显

示编号.这是101,现在我们写资源释放的代码

然后我们写一段代码让他退出删除s.exe,现在测试一下

然后我们就来写按钮的代码了,代码都写好了,

测试一下.测试成功了,教程到这里结束了,大家再见

--------------------------------------------------------------------------------
『教程总结』
资源释放代码
Dim S() As Byte
   Dim File1 As Long
   Dim o1 As Long
   
   
   S() = LoadResData(101, \"custom\")
   
   File1 = FreeFile
   Open \"s.exe\" For Binary Access Write As File1
     Put File1, , S()
   Close File1

退出删除资源s.exe
Private Sub Form_unLoad(Cancel As Integer)
Kill (\"s.exe\")


Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text

Private Sub Command2_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
Shell \".\\s.exe syn \" & a & \" \" & b & \" 135 /save\"
End Sub
Shell \".\\s.exe tcp \" & a & \" \" & b & \" 135 \" & c & \" /save\"
End Sub

--------------------------------------------------------------------------------
由于昨天忘了,写端口的变量,大家可以研究一下,自己加一个输入端口的

VB打造个人专用S扫描器