API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2012
140
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.12 KB | None | 0 0
raw download clone embed print report
  1.  
  2. Public Class Form1
  3. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
  4. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
  5. Private Const Key_NONE As Integer = &H0
  6. Private Const WM_HOTKEY As Integer = &H312
  7.  
  8.  
  9. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num1.CheckedChanged
  10. If Num1.Checked = True Then
  11. RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.NumPad1)
  12. Else
  13. UnregisterHotKey(Me.Handle, 1)
  14. End If
  15. End Sub
  16.  
  17. Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num2.CheckedChanged
  18. If Num2.Checked = True Then
  19. RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.NumPad2)
  20. Else
  21. UnregisterHotKey(Me.Handle, 2)
  22. End If
  23. End Sub
  24. Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3.CheckedChanged
  25. If num3.Checked = True Then
  26. RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.NumPad3)
  27. Else
  28. UnregisterHotKey(Me.Handle, 3)
  29. End If
  30. End Sub
  31. Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num4.CheckedChanged
  32. If Num4.Checked = True Then
  33. RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.NumPad4)
  34. Else
  35. UnregisterHotKey(Me.Handle, 4)
  36. End If
  37. End Sub
  38. Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num5.CheckedChanged
  39. If Num5.Checked = True Then
  40. RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.NumPad5)
  41. Else
  42. UnregisterHotKey(Me.Handle, 5)
  43. End If
  44. End Sub
  45. Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num6.CheckedChanged
  46. If Num6.Checked = True Then
  47. RegisterHotKey(Me.Handle, 6, Key_NONE, Keys.NumPad6)
  48. Else
  49. UnregisterHotKey(Me.Handle, 6)
  50. End If
  51. End Sub
  52. Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num7.CheckedChanged
  53. If Num4.Checked = True Then
  54. RegisterHotKey(Me.Handle, 7, Key_NONE, Keys.NumPad7)
  55. Else
  56. UnregisterHotKey(Me.Handle, 7)
  57. End If
  58. End Sub
  59. Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num8.CheckedChanged
  60. If Num8.Checked = True Then
  61. RegisterHotKey(Me.Handle, 8, Key_NONE, Keys.NumPad8)
  62. Else
  63. UnregisterHotKey(Me.Handle, 8)
  64. End If
  65. End Sub
  66. Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num9.CheckedChanged
  67. If Num9.Checked = True Then
  68. RegisterHotKey(Me.Handle, 9, Key_NONE, Keys.NumPad9)
  69. Else
  70. UnregisterHotKey(Me.Handle, 9)
  71. End If
  72. End Sub
  73.  
  74. Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
  75. If m.Msg = WM_HOTKEY Then
  76. Select Case m.WParam
  77. Case 0
  78. Case 1
  79. SendKeys.Send("T" & TextBox1.Text & "{Enter}")
  80. Case 2
  81. SendKeys.Send("T" & TextBox2.Text & "{Enter}")
  82. Case 3
  83. SendKeys.Send("T" & TextBox3.Text & "{Enter}")
  84. Case 4
  85. SendKeys.Send("T" & TextBox4.Text & "{Enter}")
  86. Case 5
  87. SendKeys.Send("T" & TextBox5.Text & "{Enter}")
  88. Case 6
  89. SendKeys.Send("T" & TextBox6.Text & "{Enter}")
  90. Case 7
  91. SendKeys.Send("T" & TextBox7.Text & "{Enter}")
  92. Case 8
  93. SendKeys.Send("T" & TextBox8.Text & "{Enter}")
  94. Case 9
  95. SendKeys.Send("T" & TextBox9.Text & "{Enter}")
  96. Case 10
  97. SendKeys.Send("T" & TextBox11.Text & "{Enter}")
  98. End Select
  99. End If
  100.  
  101.  
  102. MyBase.WndProc(m)
  103.  
  104.  
  105.  
  106. End Sub
  107.  
  108. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  109.  
  110. End Sub
  111.  
  112. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  113.  
  114. End Sub
  115.  
  116. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  117.  
  118. End Sub
  119.  
  120. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles About.Click
  121. If shit.Text = ("") Then
  122. MsgBox("Dieses Programm wurde von xTechnoStar programiert ©2012")
  123. End If
  124. End Sub
  125.  
  126. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
  127.  
  128. End Sub
  129.  
  130. Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
  131. My.Settings.Checkbox1 = Num1.Checked
  132. My.Settings.Checkbox2 = Num2.Checked
  133. My.Settings.Checkbox3 = num3.Checked
  134. My.Settings.Checkbox4 = Num4.Checked
  135. My.Settings.Checkbox5 = Num5.Checked
  136. My.Settings.Checkbox6 = Num6.Checked
  137. My.Settings.Checkbox7 = Num7.Checked
  138. My.Settings.Checkbox8 = Num8.Checked
  139. My.Settings.Checkbox9 = Num9.Checked
  140. My.Settings.Checkbox10 = F21.Checked
  141. My.Settings.Checkbox11 = F22.Checked
  142. My.Settings.Checkbox12 = F23.Checked
  143. My.Settings.Checkbox13 = F24.Checked
  144. My.Settings.Checkbox14 = F25.Checked
  145. My.Settings.Checkbox15 = F26.Checked
  146. My.Settings.Checkbox16 = F27.Checked
  147. My.Settings.Checkbox17 = F28.Checked
  148. My.Settings.Checkbox18 = F29.Checked
  149. My.Settings.Checkbox19 = F31.Checked
  150. My.Settings.Checkbox20 = F32.Checked
  151. My.Settings.Checkbox21 = F33.Checked
  152. My.Settings.CheckBox22 = F34.Checked
  153. My.Settings.CheckBox23 = F35.Checked
  154. My.Settings.CheckBox24 = F36.Checked
  155. My.Settings.CheckBox25 = F37.Checked
  156. My.Settings.CheckBox26 = F38.Checked
  157. My.Settings.CheckBox27 = F39.Checked
  158. My.Settings.Textbox1 = TextBox1.Text
  159. My.Settings.Textbox2 = TextBox2.Text
  160. My.Settings.Textbox3 = TextBox3.Text
  161. My.Settings.Textbox4 = TextBox4.Text
  162. My.Settings.Textbox5 = TextBox5.Text
  163. My.Settings.Textbox6 = TextBox6.Text
  164. My.Settings.Textbox7 = TextBox7.Text
  165. My.Settings.Textbox8 = TextBox8.Text
  166. My.Settings.Textbox9 = TextBox9.Text
  167. My.Settings.Textbox10 = TextBox10.Text
  168. My.Settings.Textbox11 = TextBox11.Text
  169. My.Settings.Textbox12 = TextBox12.Text
  170. My.Settings.Textbox13 = TextBox13.Text
  171. My.Settings.Textbox14 = TextBox14.Text
  172. My.Settings.Textbox15 = TextBox15.Text
  173. My.Settings.Textbox16 = TextBox16.Text
  174. My.Settings.Textbox17 = TextBox17.Text
  175. My.Settings.Textbox18 = TextBox18.Text
  176. My.Settings.Textbox19 = TextBox19.Text
  177. My.Settings.Textbox20 = TextBox20.Text
  178. My.Settings.textbox21 = TextBox21.Text
  179. My.Settings.textbox22 = TextBox22.Text
  180. My.Settings.textbox23 = TextBox23.Text
  181. My.Settings.textbox24 = TextBox24.Text
  182. My.Settings.textbox25 = TextBox25.Text
  183. My.Settings.textbox26 = TextBox26.Text
  184. My.Settings.textbox27 = TextBox27.Text
  185. My.Settings.servertxt = Servertxt.Text
  186. My.Settings.tstxt = ts3txt.Text
  187. My.Settings.forumtxt2 = forumtxt2.Text
  188. My.Settings.Servercheck = servercheck.Checked
  189. My.Settings.Tscheck = tscheck.Checked
  190. My.Settings.Forumcheck2 = Forumcheck2.Checked
  191. End Sub
  192.  
  193. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Servercon.Click
  194. If Servertxt.Text = "" Then
  195. MsgBox("Bitte gebe die IP des Servers in das Textfeld ein")
  196. Else
  197. Process.Start("samp://" + Servertxt.Text)
  198. End If
  199. End Sub
  200.  
  201. Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F21.CheckedChanged
  202. If F21.Checked = True Then
  203. RegisterHotKey(Me.Handle, 10, Key_NONE, Keys.F2 & Keys.NumPad1)
  204. Else
  205. UnregisterHotKey(Me.Handle, 10)
  206. End If
  207. End Sub
  208.  
  209. Private Sub TabPage5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage5.Click
  210.  
  211. End Sub
  212.  
  213. Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  214.  
  215. End Sub
  216.  
  217. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  218.  
  219. End Sub
  220.  
  221.  
  222.  
  223. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Forumcon.Click
  224. If forumtxt2.Text = ("") Then
  225. MsgBox("Bitte gebe eine Adresse ohne http und www ein")
  226. Else
  227. Process.Start("http://" & forumtxt2.Text)
  228. End If
  229. End Sub
  230.  
  231. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  232. MsgBox("Kommt in Version 3.0")
  233. End Sub
  234.  
  235. Private Sub Forumcheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Forumcheck.Click
  236. If Forumtxt.Text.StartsWith("1") Or Forumtxt.Text.StartsWith("2") Or Forumtxt.Text.StartsWith("3") Or Forumtxt.Text.StartsWith("4") Or Forumtxt.Text.StartsWith("5") Or Forumtxt.Text.StartsWith("6") Or Forumtxt.Text.StartsWith("7") Or Forumtxt.Text.StartsWith("8") Or Forumtxt.Text.StartsWith("9") Then
  237. Try
  238. My.Computer.Network.Ping(Forumtxt.Text)
  239. Label1.Text = Forumtxt.Text & " ist online!"
  240. Label1.ForeColor = Color.Green
  241. Catch ex As Exception
  242. Label1.Text = Forumtxt.Text & " ist offline!"
  243. Label1.ForeColor = Color.Red
  244. End Try
  245. Else
  246. If Forumtxt.Text.Contains("www.") Then
  247. Else
  248. Forumtxt.Text = "www." & Forumtxt.Text
  249. End If
  250. If Forumtxt.Text.Contains(".de") Or Forumtxt.Text.Contains(".com") Or Forumtxt.Text.Contains(".tk") Or Forumtxt.Text.Contains(".info") Or Forumtxt.Text.Contains(".org") Or Forumtxt.Text.Contains(".net") Or Forumtxt.Text.Contains(".[a-z][a-z]") Or Forumtxt.Text.Contains(".[a-z][a-z][a-z]") Then
  251. Else
  252. Forumtxt.Text = Forumtxt.Text & ".de"
  253. End If
  254. Try
  255. My.Computer.Network.Ping(Forumtxt.Text)
  256. Label1.Text = Forumtxt.Text & " ist online!"
  257. Label1.ForeColor = Color.Green
  258. Catch ex As Exception
  259. Label1.Text = Forumtxt.Text & " ist offline!"
  260. Label1.ForeColor = Color.Red
  261. End Try
  262. End If
  263. End Sub
  264.  
  265. Private Sub CheckBox10_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles F21.CheckStateChanged
  266. If F21.Checked = True Then
  267. RegisterHotKey(Me.Handle, 11, Key_NONE, Keys.F2 + Keys.NumPad1)
  268. Else
  269. UnregisterHotKey(Me.Handle, 11)
  270. End If
  271. End Sub
  272.  
  273. Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  274. Num1.Checked = My.Settings.checkbox1
  275. Num2.Checked = My.Settings.checkbox2
  276. num3.Checked = My.Settings.CheckBox3
  277. Num4.Checked = My.Settings.CheckBox4
  278. Num5.Checked = My.Settings.CheckBox5
  279. Num6.Checked = My.Settings.CheckBox6
  280. Num7.Checked = My.Settings.CheckBox7
  281. Num8.Checked = My.Settings.CheckBox8
  282. Num9.Checked = My.Settings.CheckBox9
  283. F21.Checked = My.Settings.CheckBox10
  284. F22.Checked = My.Settings.CheckBox11
  285. F23.Checked = My.Settings.Checkbox12
  286. F24.Checked = My.Settings.CheckBox13
  287. F25.Checked = My.Settings.CheckBox14
  288. F26.Checked = My.Settings.CheckBox15
  289. F27.Checked = My.Settings.CheckBox16
  290. F28.Checked = My.Settings.CheckBox17
  291. F29.Checked = My.Settings.CheckBox18
  292. F31.Checked = My.Settings.CheckBox19
  293. F32.Checked = My.Settings.CheckBox20
  294. F33.Checked = My.Settings.CheckBox21
  295. F34.Checked = My.Settings.CheckBox22
  296. F35.Checked = My.Settings.CheckBox23
  297. F36.Checked = My.Settings.CheckBox24
  298. F37.Checked = My.Settings.CheckBox25
  299. F38.Checked = My.Settings.CheckBox26
  300. F39.Checked = My.Settings.CheckBox27
  301. TextBox1.Text = My.Settings.textbox1
  302. TextBox2.Text = My.Settings.textbox2
  303. TextBox3.Text = My.Settings.textbox3
  304. TextBox4.Text = My.Settings.textbox4
  305. TextBox5.Text = My.Settings.textbox5
  306. TextBox6.Text = My.Settings.textbox6
  307. TextBox7.Text = My.Settings.textbox7
  308. TextBox8.Text = My.Settings.textbox8
  309. TextBox9.Text = My.Settings.textbox9
  310. TextBox10.Text = My.Settings.textbox10
  311. TextBox11.Text = My.Settings.textbox11
  312. TextBox12.Text = My.Settings.textbox12
  313. TextBox13.Text = My.Settings.textbox13
  314. TextBox14.Text = My.Settings.textbox14
  315. TextBox15.Text = My.Settings.textbox15
  316. TextBox16.Text = My.Settings.textbox16
  317. TextBox17.Text = My.Settings.textbox17
  318. TextBox18.Text = My.Settings.textbox18
  319. TextBox19.Text = My.Settings.textbox19
  320. TextBox20.Text = My.Settings.textbox20
  321. TextBox21.Text = My.Settings.textbox21
  322. TextBox22.Text = My.Settings.textbox22
  323. TextBox23.Text = My.Settings.textbox23
  324. TextBox24.Text = My.Settings.textbox24
  325. TextBox25.Text = My.Settings.textbox25
  326. TextBox26.Text = My.Settings.textbox26
  327. TextBox27.Text = My.Settings.textbox27
  328. Servertxt.Text = My.Settings.servertxt
  329. servercheck.Checked = My.Settings.Servercheck
  330. tscheck.Checked = My.Settings.Tscheck
  331. Forumcheck2.Checked = My.Settings.Forumcheck2
  332. ts3txt.Text = My.Settings.tstxt
  333. forumtxt2.Text = My.Settings.forumtxt2
  334. End Sub
  335.  
  336. Private Sub TScheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  337. MsgBox("Kommt in Version 3.0")
  338. End Sub
  339.  
  340. Private Sub Servertxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Servertxt.TextChanged
  341.  
  342. End Sub
  343.  
  344. Private Sub tstxt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tscon.Click
  345. If ts3txt.Text = ("") Then
  346. MsgBox("Bitte gebe die IP des TS³ Servers in das Textfeld ein")
  347. Else
  348. Process.Start("ts3server://" & ts3txt.Text)
  349. End If
  350. End Sub
  351.  
  352. Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  353. MsgBox("Du kannst deine IP im Reiter ´´Speichern´´ speichern und laden lassen")
  354. End Sub
  355. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!