1. 首頁 > 生活百科 > >

qq轟炸機 qq轟炸機代碼怎樣結束

知識經驗

【qq轟炸機 qq轟炸機代碼怎樣結束】

qq轟炸機 qq轟炸機代碼怎樣結束

文章插圖
大家好,小龍來為大家解答以上的問題 。qq轟炸機代碼怎樣結束，qq轟炸機這個很多人還不知道,現在讓我們一起來看看吧！
1、自己用vb2008寫一個就行了 。
2、免得有病毒--- Option Strict Off Option Explicit OnFriend Class Form1Inherits System.Windows.Forms.FormDim a As StringPublic Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ***.ClickTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ***.ClickTimer1.Enabled = FalseEnd SubPrivate Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.LoadTimer1.Enabled = FalseTextBox1.Text = ""End SubPrivate Sub Combo1_KeyDown(ByRef KeyCode As Short, ByRef Shift As Short)On Error GoTo aIf KeyCode = CDbl("F10") ThenMe.Visible = FalseTimer1.Enabled = TrueEnd IfIf KeyCode = CDbl("F4") ThenMe.Visible = TrueMe.Visible = TrueMe.Visible = TrueMe.Visible = TrueTimer1.Enabled = Falsea:End IfEnd SubPrivate Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.TickMe.Visible = Falsea = TextBox1.TextSendKeys.Send(a)SendKeys.Send("{ENTER}")End Sub End Class 至于關掉它 。
3、只好用任務管理器強關了 。
本文到此分享完畢，希望對大家有所幫助 。

    推薦閱讀