Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
The Trillers - Form1.frm

Form1.frm

Caricato da:
Scarica il programma completo

  1. Option Explicit
  2. Dim GetPos As POINTAPI
  3. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  4.  
  5. Dim MouseDown As Boolean
  6. Dim FormX As Single
  7. Dim FormY As Single
  8. Private Type POINTAPI
  9.     X As Long
  10.     Y As Long
  11. End Type
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. Private Sub cmdConnect_Click()
  20. On Error Resume Next
  21.  
  22. Dim i As Integer
  23. Form1.WindowState = 1
  24. Do While i <= Text1
  25. SendKeys ("/nudge")
  26. SendKeys "{enter}"
  27. i = i + 1
  28. Sleep (0.3)
  29. If i = Text1 Then
  30. WindowState = 0
  31. End If
  32. Loop
  33. End Sub
  34.  
  35.  
  36.  
  37.  
  38. Private Sub Timer1_Timer()
  39. Me.Caption = ""
  40. Timer2.Enabled = True
  41. End Sub
  42.  
  43. Private Sub Timer2_Timer()
  44. Me.Caption = "                                                   <---       T h e  T r i l l e r s        ---->"
  45. End Sub
  46. Private Sub Sleep(Seconds As Double)
  47.    Dim TempTime As Double
  48.    On Error Resume Next
  49.    TempTime = Timer
  50.    Do While Timer - TempTime < Seconds
  51.       DoEvents
  52.       If Timer < TempTime Then
  53.          TempTime = TempTime - 24# * 3600#
  54.       End If
  55.    Loop
  56. End Sub
  57. Private Sub Form_Load()
  58.     Me.Left = (Screen.Width - Me.Width) / 2
  59.     Me.Top = (Screen.Height - Me.Height) / 2
  60. End Sub
  61.  
  62. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  63.     RELOAD
  64. End Sub
  65.  
  66. Private Sub imgStop_Click(Index As Integer)
  67.     End
  68. End Sub
  69.    
  70. Private Sub imgStop_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  71.     If imgStop(1).Visible = False Then
  72.         RELOAD
  73.     End If
  74.     imgStop(1).Visible = True
  75. End Sub
  76.  
  77. Private Sub picbar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  78.     MouseDown = True
  79.     FormX = X
  80.     FormY = Y
  81. End Sub
  82.  
  83. Private Sub picbar_mouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  84.     MouseDown = 0
  85. End Sub
  86.  
  87. Private Sub lbltitle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  88.     RELOAD
  89.     Call GetCursorPos(GetPos)
  90.     If MouseDown = True Then
  91.         Me.Top = (GetPos.Y * 15) - FormY
  92.         Me.Left = (GetPos.X * 15) - FormX
  93.     End If
  94. End Sub
  95.  
  96. Private Sub lbltitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  97.     MouseDown = True
  98.     FormX = X
  99.     FormY = Y
  100. End Sub
  101.  
  102. Private Sub lbltitle_mouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  103.     MouseDown = False
  104. End Sub
  105.  
  106. Private Sub picbar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  107.     RELOAD
  108.     Call GetCursorPos(GetPos)
  109.     If MouseDown = True Then
  110.         Me.Top = (GetPos.Y * 15) - FormY
  111.         Me.Left = (GetPos.X * 15) - FormX
  112.     End If
  113. End Sub
  114.  
  115. Sub RELOAD()
  116.     imgStop(1).Visible = False
  117.     picMin(1).Visible = False
  118.     picExit(1).Visible = False
  119. End Sub
  120.  
  121. Private Sub picExit_Click(Index As Integer)
  122.     End
  123. End Sub
  124.  
  125. Private Sub picExit_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  126.     If picExit(1).Visible = False Then
  127.         RELOAD
  128.     End If
  129.     picExit(1).Visible = True
  130. End Sub
  131.  
  132. Private Sub picMin_Click(Index As Integer)
  133.     Me.WindowState = vbMinimized
  134. End Sub
  135.  
  136. Private Sub picMin_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  137.     If picMin(1).Visible = False Then
  138.         RELOAD
  139.     End If
  140.     picMin(1).Visible = True
  141. End Sub