最近聽很多網友說，他們給人做程序的時候遇到了騙子，程序發給對方卻把他拉黑，尾款也打了水漂！
針對這樣的情況，大家可以嘗試下以下代碼！
1.我們以VB6.0為例，原理就是生成一個新的bat文件，寫入以下內容，並執行bat!
代碼
VB6.0完整代碼：
Private Sub Form_Unload(Cancel As Integer) '窗體關閉事件
Cancel = True '取消關閉
Open App.Path & "\del.bat" For Output As #1 'bat只支持英文！
Print #1, "@echo off" '"@echo off" 不顯示執行過程
Print #1, ":1"
Print #1, "if exist " & Chr(34) & App.EXEName & ".exe" & Chr(34) & " ( " '如果"文件1.exe"存在
Print #1, "del " & App.EXEName & ".exe" '刪除"文件1.exe"
Print #1, "goto 1"
Print #1, ") else ( " '如果成功刪除
Print #1, ""
Print #1, ":2"
Print #1, "if exist " & Chr(34) & App.EXEName & ".exe" & Chr(34) & " ( " '如果"文件2.exe"存在
Print #1, "del " & App.EXEName & ".exe" '刪除"文件2.exe"
Print #1, "goto 2"
Print #1, ") else ( "
Print #1, "del " & "del.bat" '刪除自身
Print #1, "Cls" '清屏
Print #1, "exit" '退出cmd
Print #1, ")"
Print #1, ""
Print #1, ")"
Close #1
Shell App.Path & "\del.bat", vbHide '運行bat
End '結束本程序
End Sub
2.運行程序！效果：當程序關閉後，程序自身刪除！
是不是很簡單呢？大家快來試試吧！當然防被騙的方式還有很多，你們常用的方法是哪個呢？
相關推薦
