[初階] Textbox輸入進入表單 表, 多, Software, yahoo

MeMoRy

1. If TextBox1.Text = "1" Then
   
2. Form2.Show()
   
3. Me.Hide()
   
4. ElseIf TextBox1.Text = "2" Then
   
5. Form3.Show()
   
6. Me.Hide()
   
7. End If
   
8. '警告訊息
   
9. End Sub

複製代碼

附送 Label 文字修改     適用於  command  ^_^

1.         Label11.Text = "已經開始倒數"

複製代碼

附送即時通、MSN  多開源碼
啟動即時通多開

1. Shell("reg add ""HKCU\Software\yahoo\pager\Test"" /v ""plural"" /t REG_DWORD /d 00000001 /f", vbHide)

複製代碼

關閉即時通多開

1. Shell("reg delete ""HKCU\Software\yahoo\pager\Test"" /v ""plural"" /f", vbHide)

複製代碼

啟動MSN多開

1. Shell("reg add ""HKEY_LOCAL_MACHINE\Software\Microsoft\Windows Live\Messenger"" /v ""MultipleInstances"" /t REG_DWORD /d 00000001 /f", vbHide)

複製代碼

關閉MSN多開

1. Shell("reg delete ""HKEY_LOCAL_MACHINE\Software\Microsoft\Windows Live\Messenger"" /v ""MultipleInstances"" /f", vbHide)

複製代碼

完成品: Yahoo.exe (108.5 KB)

下載次數: 98

2012-6-5 19:13