billing.frm

Billing Internet Cafe

Private Sub CmdStop_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
selmov.Visible = True
End Sub

Private Sub Form_Activate()
billing.Width = 4875
billing.Height = 3720
biayar.Visible = False
waktur.Visible = False
Line1.Visible = False
LabelDiscount.Caption = "Rp."
End Sub

Private Sub Form_Load()
On Error Resume Next
Load Form1
Form1.Visible = False
Form1.Text1.Text = FrmMain.TxtNo_Client.Text
App.TaskVisible = False
Timer1.Enabled = True
menke.AddItem "1"
menke.AddItem "2"
menke.AddItem "3"
menke.AddItem "4"
menke.AddItem "5"
menke.AddItem "6"
menke.AddItem "7"
menke.AddItem "8"
menke.AddItem "9"
menke.AddItem "10"
menke.AddItem "11"
menke.AddItem "12"
menke.AddItem "13"
menke.AddItem "14"
menke.AddItem "15"
menke.AddItem "16"
menke.AddItem "17"
menke.AddItem "18"
menke.AddItem "19"
menke.AddItem "20"
menke.AddItem "21"
menke.AddItem "22"
menke.AddItem "23"
menke.AddItem "24"
menke.AddItem "25"
menke.AddItem "26"
menke.AddItem "27"
menke.AddItem "28"
menke.AddItem "29"
menke.AddItem "30"
menke.AddItem "31"
menke.AddItem "32"
menke.AddItem "33"
menke.AddItem "34"
menke.AddItem "35"
menke.AddItem "36"
menke.AddItem "37"
menke.AddItem "38"
menke.AddItem "39"
menke.AddItem "40"
menke.AddItem "41"
menke.AddItem "42"
menke.AddItem "43"
menke.AddItem "44"
menke.AddItem "45"
menke.AddItem "46"
menke.AddItem "47"
menke.AddItem "48"
menke.AddItem "49"
menke.AddItem "50"
menke.AddItem "51"
menke.AddItem "52"
menke.AddItem "53"
menke.AddItem "54"
menke.AddItem "55"
menke.AddItem "56"
menke.AddItem "57"
menke.AddItem "58"
menke.AddItem "59"
End Sub
Function hans() As Long
 On Error Resume Next
  Dim taskmgrpatch(1 To 2) As Long
  taskmgrpatch(1) = FindWindow("Shell_TrayWnd", vbNullString)
  taskmgrpatch(2) = FindWindowEx(taskmgrpatch(1), ByVal 0&, "Button", vbNullString)
  hans = taskmgrpatch(2)
End Function
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
selmov.Visible = False
pesmov.Visible = False
End Sub

Private Sub killtask_Timer()
Hajar "TASK MANAGER"
Hajar "CMD"
Hajar "Command Prompt"
End Sub

Private Sub Label1_Click()
billing.Width = min1.Width
billing.Height = 495
billing.Left = 4680
billing.Top = 45
min1.Visible = True
biayar.Visible = True
waktur.Visible = True
Line1.Visible = True
End Sub



Private Sub Label12_Click()
Dim i As Long
i = ShellExecute(billing.hwnd, "open", "http://www.blackpearl87.com", vbNullString, vbNullString, 1)

End Sub

Private Sub Label2_Click()
billing.Width = 4875
billing.Height = 3720
max.Visible = True
biayar.Visible = False
waktur.Visible = False
Line1.Visible = False
End Sub

Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
max.Visible = False
max2.Visible = True
End Sub

Private Sub Label2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
max2.Visible = False
normal.Visible = True
End Sub

Private Sub max2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
normal.Visible = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Dim btnHwnd As Long
Dim hFind As Long
Static pos As Integer
btnHwnd = hans
If btnHwnd > 0 Then
   RedrawWindow hans, ByVal 0&, ByVal 0&, &H1
  
  
End If
hFind = FindWindow(ByVal vbNullString, ByVal "Windows Task Manager")
If hFind > 0 Then
   If isPatch = False Then
        ShowWindow hFind, 0
        Dim hProcess As PROCESSENTRY32, PID As Long
        hProcess = GetPID("taskmgr.exe")
        
        PID = OpenProcess(&H1F0FFF, False, hProcess.th32ProcessID)
        PatchTaskManager PID, myAppName, "svchost.exe"
        PatchTaskManager PID, getCurUser, "SYSTEM"
        ShowWindow hFind, 1
        
        isPatch = True
   End If
Else
   If isPatch Then
      isPatch = False
   End If
End If
waktur.Caption = "Durasi :" & LabelDurasi.Caption
biayar.Caption = "Biaya :" & LabelBiaya.Caption
ingt.Caption = Minute(LabelDurasi)
If ingt.Caption = txtmen.Text Then
killtask.Enabled = True
msgdis.Visible = True
msgdis.msg.Caption = "Anda sudah masuk menit ke " & txtmen & ", ingatkan kembali?"
txtmen.Text = "menit"

End If

End Sub
Sub PatchTaskManager(PID As Long, nFindWhat As String, nReplaceWith As String)
On Error Resume Next
Dim hFind As String, hReplace As String, AddRead As Long
Dim ByteRead As Long
Dim Temp As String * &H4E30
Dim hPos As Long
Dim posWrite As Long

    hFind = StrConv(nFindWhat, vbUnicode)
    If Len(nFindWhat) > Len(nReplaceWith) Then
       hReplace = StrConv(nReplaceWith & Space(Len(nFindWhat) - Len(nReplaceWith)), vbUnicode)
    End If
        DoEvents
        For AddRead = 0 To &H3E8
        Call ReadProcessMemory(PID, AddRead * &H4E20, Temp, &H4E30, ByteRead)
            If ByteRead > 0 Then
              hPos = 1
              While InStr(hPos, Temp, hFind) > 0
                posWrite = (AddRead) * &H4E20 + InStr(hPos, Temp, hFind) - 1
                Call WriteProcessMemory(PID, posWrite, hReplace, Len(hReplace), 0)
                hPos = InStr(hPos, Temp, Trim(hFind)) + 1
              Wend
            End If
                   
        Next AddRead
        DoEvents
End Sub
Private Sub CmdStop_Click()
If MsgBox("Anda yakin berhenti dari sesi ini????", vbYesNo) = vbYes Then
FrmMain.Visible = True
FrmMain.Timer2.Enabled = True
Unload Form1
Unload Me
Unload frmblock
TaskManager_Enable_Disable (True)
Timer4.Enabled = False
End If
End Sub


Private Sub Timer2_Timer()
If LabelDiscount.Caption = "Rp." Then
LabelDiscount.Caption = "Not Active Now"
cmdcheck.Enabled = True
LabelTotal.Visible = False
LabelTotal1.Visible = True
Timer4.Enabled = False
Else
Timer4.Enabled = True
LabelTotal1.Visible = False
LabelTotal.Visible = True
End If
End Sub

Private Sub Timer3_Timer()
If FrmMain.stst.Text = "active" Then
Hajar "CMD"
Hajar "Regedit"
Hajar "Registry"
Hajar "Command Prompt"
TaskManager_Enable_Disable (False)
End If
End Sub

Private Sub Timer4_Timer()
LabelDiscount.Caption = "Rp." & FrmMain.LabelDiscount.Caption & ""
End Sub

Private Sub timerketik_Timer()
On Error Resume Next
    Dim bunuah As Long
bunuah = Tampa(FrmMain.b1.Text)
bunuah = Tampa(FrmMain.b2.Text)
bunuah = Tampa(FrmMain.b3.Text)
bunuah = Tampa(FrmMain.b4.Text)
bunuah = Tampa(FrmMain.b5.Text)
bunuah = Tampa(FrmMain.b6.Text)
bunuah = Tampa(FrmMain.b7.Text)
bunuah = Tampa(FrmMain.b8.Text)
bunuah = Tampa(FrmMain.b9.Text)
bunuah = Tampa(FrmMain.b10.Text)
bunuah = Tampa(FrmMain.b11.Text)
bunuah = Tampa(FrmMain.b12.Text)
bunuah = Tampa(FrmMain.b13.Text)
bunuah = Tampa(FrmMain.b14.Text)
bunuah = Tampa(FrmMain.b15.Text)
Select Case bunuah
        Case 1
            MsgBox "Maaf anda tidak mempunyai akses untuk ini", vbOKOnly, "Stop"
    End Select

End Sub


Private Sub close1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
normal.Visible = True
End Sub

Private Sub close2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
normal.Visible = True
End Sub


Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
min1.Visible = False
min2.Visible = True
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
min1.Visible = True
normal.Visible = False
max.Visible = False
close1.Visible = False
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
min2.Visible = False
normal.Visible = True
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
max.Visible = True
normal.Visible = False
close1.Visible = False
min1.Visible = False
End Sub
Private Sub Label3_Click()
Call CmdStop_Click
End Sub
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
close1.Visible = False
close2.Visible = True
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
close1.Visible = True
normal.Visible = False
min1.Visible = False
max.Visible = False
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
normal.Visible = True
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
normal.Visible = True
End Sub
Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
close2.Visible = False
normal.Visible = True
End Sub
Private Sub max_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
normal.Visible = True
End Sub
Private Sub min1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
normal.Visible = True
End Sub
Private Sub min2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
normal.Visible = True
End Sub
Private Sub normal_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
selmov.Visible = False
pesmov.Visible = False
End Sub
Private Sub timerwaktu_Timer()
Label5.Caption = Format(Time, "hh:mm AM/PM")
Label7.Caption = Format(Date, "dd mmmm yyyy")
LabelTotal1.Caption = LabelBiaya.Caption
End Sub
Private Function Tampa(ByVal pExe As String) As Long
On Error GoTo hell
    Dim proses As Object
    Dim inp As String
    inp = Trim(pExe)
    If Len(inp) > 0 Then
        For Each proses In GetObject("winmgmts:").ExecQuery _
            ("Select Name from Win32_process Where Name = '" & inp & "'")
            proses.Terminate
            Tampa = 1
            Exit Function
        Next proses
        Tampa = 2
    Else
        Tampa = 3
    End If
    Exit Function
hell:
    Tampa = Err.Number
End Function