Code: Select all
While 1
$msg = GUIGetMsg($Main)
mantenerdentro()
_BatteryQueryEx()
_Manual()
$T = GUICtrlRead($input3)
$mciError = _mciSendString($lpszCommand, $lpszReturnString, $cchReturn, 0);
If GUICtrlRead($CHECKBOX3) = 1 Then
$STATE3 = "CHECK"
Else
$STATE3 = "UNCHECK"
EndIf
$T = GUICtrlRead($input3)
If GUICtrlRead($CHECKBOX2) = 1 Then
$STATE2 = "CHECK"
Else
$STATE2 = "UNCHECK"
EndIf
If GUICtrlRead($CHECKBOX20002) = 1 Then
$STATE20002 = "CHECK"
Else
$STATE20002 = "UNCHECK"
EndIf
If GUICtrlRead($Radio00) = $GUI_CHECKED Then
$resta = 0
EndIf
If GUICtrlRead($Radio10) = $GUI_CHECKED Then
$resta = 1
EndIf
If GUICtrlRead($Radio20) = $GUI_CHECKED Then
$resta = 2
EndIf
If GUICtrlRead($Radio30) = $GUI_CHECKED Then
$resta = 3
EndIf
If $STATE3 = "UNCHECK" Then
GUICtrlSetData($ProgressBar, 0)
EndIf
If $STATE3 = "UNCHECK" Then
GUICtrlSetData($VolumeLabel2, "" & 0)
EndIf
If $STATE3 = "CHECK" Then
GUICtrlSetData($ProgressBar, $mciError[2])
_probamossonido()
EndIf
If $STATE3 = "CHECK" Then
GUICtrlSetData($VolumeLabel2, "" & $A)
EndIf
$T = GUICtrlRead($input3)
If $mciError[0] <> 0 Then _mciShowError($mciError[0])
GUICtrlSetData($VolumeLabel, "" & $mciError[2])
$pedro = ($mciError[2]) * 0.78125
$A = Round($pedro, 0)
Select
Case $msg = $GUI_EVENT_CLOSE
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
$ok = MsgBox(20, "CLOSE", "DO YOU WANT TO EXIT?")
If $ok = 6 Then Exit
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
Case $msg = $Radioderechas
Global $size = WinGetPos("minigui")
If Not WinExists("candado") Then
Sleep(10)
Else
Sleep(10)
GUIDelete($Guipequecandado)
$asegurarse2c = 0
GUISwitch($Main)
$Guipequecandado = GUICreate("candado", 80, $size[3], $size[0] + $size[2] + 10, $size[1], $WS_POPUPWINDOW, $WS_EX_LAYERED + $GUI_WS_EX_PARENTDRAG, WinGetHandle(AutoItWinGetTitle()))
WinSetOnTop($Guipequecandado, "candado", 1)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($Guipequecandado, 0xABCDEF, 255)
GUISetState(@SW_SHOW, $Guipequecandado)
Global $sizecandado = WinGetPos("candado")
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizecandado[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizecandado[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizecandado[3] - 5, $sizecandado[2], $sizecandado[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizecandado[2] - 5, $sizecandado[3] - 5, $sizecandado[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUISwitch($Main)
EndIf
Case $msg = $Radioizquierdas
Global $size = WinGetPos("minigui")
If Not WinExists("candado") Then
Sleep(10)
Else
Sleep(10)
GUIDelete($Guipequecandado)
$asegurarse2c = 0
GUISwitch($Main)
$Guipequecandado = GUICreate("candado", 80, $size[3], $size[0] - 100, $size[1], $WS_POPUPWINDOW, $WS_EX_LAYERED + $GUI_WS_EX_PARENTDRAG, WinGetHandle(AutoItWinGetTitle()))
WinSetOnTop($Guipequecandado, "candado", 1)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($Guipequecandado, 0xABCDEF, 255)
GUISetState(@SW_SHOW, $Guipequecandado)
Global $sizecandado = WinGetPos("candado")
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizecandado[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizecandado[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizecandado[3] - 5, $sizecandado[2], $sizecandado[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizecandado[2] - 5, $sizecandado[3] - 5, $sizecandado[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUISwitch($Main)
EndIf
Case $msg = $aderechas
GUICtrlSetState($Radioderechas, $GUI_CHECKED)
If Not WinExists("candado") Then
Sleep(10)
Else
GUIDelete($Guipequecandado)
$asegurarse2c = 0
GUISwitch($Main)
$Guipequecandado = GUICreate("candado", 80, $size[3], $size[0] + $size[2] + 10, $size[1], $WS_POPUPWINDOW, $WS_EX_LAYERED + $GUI_WS_EX_PARENTDRAG, WinGetHandle(AutoItWinGetTitle()))
WinSetOnTop($Guipequecandado, "candado", 1)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($Guipequecandado, 0xABCDEF, 255)
GUISetState(@SW_SHOW, $Guipequecandado)
Global $sizecandado = WinGetPos("candado")
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizecandado[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizecandado[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizecandado[3] - 5, $sizecandado[2], $sizecandado[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizecandado[2] - 5, $sizecandado[3] - 5, $sizecandado[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUISwitch($Main)
EndIf
Case $msg = $aizquierdas
GUICtrlSetState($Radioizquierdas, $GUI_CHECKED)
If Not WinExists("candado") Then
Sleep(10)
Else
$asegurarse2c = 0
GUIDelete($Guipequecandado)
GUISwitch($Main)
$Guipequecandado = GUICreate("candado", 80, $size[3], $size[0] - 100, $size[1], $WS_POPUPWINDOW, $WS_EX_LAYERED + $GUI_WS_EX_PARENTDRAG, WinGetHandle(AutoItWinGetTitle()))
WinSetOnTop($Guipequecandado, "candado", 1)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($Guipequecandado, 0xABCDEF, 255)
GUISetState(@SW_SHOW, $Guipequecandado)
Global $sizecandado = WinGetPos("candado")
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizecandado[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizecandado[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizecandado[3] - 5, $sizecandado[2], $sizecandado[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizecandado[2] - 5, $sizecandado[3] - 5, $sizecandado[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUISwitch($Main)
EndIf
Case $msg = $Buttonvirtualon
candado()
Case $msg = $CHECKBOX2000
If GUICtrlRead($CHECKBOX2000) = $GUI_CHECKED Then
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
MsgBox(48, 'BETA VERSION', "THIS OPTION IS NOT AVAIBLE YET" & @CRLF & "IT WILL BE INCLUDED ON FINAL VERSION")
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
EndIf
Case $msg = $soundsbtn
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
MsgBox(48, 'BETA VERSION', "THIS OPTION IS NOT AVAIBLE YET" & @CRLF & "IT WILL BE INCLUDED ON FINAL VERSION")
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
Case $msg = $Button1
$size = WinGetPos("minigui")
Sleep(10)
$asegurarse2 = 0
If $size[1] > 168 Then
Sleep(10)
WinMove("minigui", "", $size[0], $size[1] - 3, $size[2], $size[3])
Sleep(10)
$size = WinGetPos("minigui")
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $msg = $Button2
$size = WinGetPos("minigui")
Sleep(10)
$asegurarse2 = 0
Sleep(10)
If $size[0] >= 100 Then
Sleep(10)
WinMove("minigui", "", $size[0] - 3, $size[1], $size[2], $size[3])
$size = WinGetPos("minigui")
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $msg = $Button3
$size = WinGetPos("minigui")
Sleep(10)
$asegurarse2 = 0
Sleep(10)
If $size[0] + $size[2] <= @DesktopWidth - 450 Then
Sleep(10)
WinMove("minigui", "", $size[0] + 3, $size[1], $size[2], $size[3])
$size = WinGetPos("minigui")
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $msg = $Button4
$size = WinGetPos("minigui")
Sleep(10)
$asegurarse2 = 0
Sleep(10)
If $size[1] + $size[3] <= $altogui4 Then
Sleep(10)
WinMove("minigui", "", $size[0], $size[1] + 3, $size[2], $size[3])
$size = WinGetPos("minigui")
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $msg = $Button5
$size = WinGetPos("minigui")
Sleep(10)
$asegurarse2 = 0
Sleep(10)
If $size[1] + $size[3] <= $altogui4 Then
Sleep(10)
WinMove("minigui", "", $size[0], $size[1], $size[2], $size[3] + 3)
$size = WinGetPos("minigui")
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $msg = $Button6
$size = WinGetPos("minigui")
Sleep(10)
$asegurarse2 = 0
Sleep(10)
If $size[0] + $size[2] <= @DesktopWidth - 370 Then
Sleep(10)
WinMove("minigui", "", $size[0], $size[1], $size[2] + 3, $size[3])
$size = WinGetPos("minigui")
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $msg = $Button7
$size = WinGetPos("minigui")
Sleep(10)
$asegurarse2 = 0
Sleep(10)
If $size[2] >= 100 Then
Sleep(10)
WinMove("minigui", "", $size[0], $size[1], $size[2] - 3, $size[3])
$size = WinGetPos("minigui")
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Else
Beep(100, 100)
EndIf
Case $msg = $Button8
$size = WinGetPos("minigui")
Sleep(10)
$asegurarse2 = 0
Sleep(10)
If $size[3] > 30 Then
Sleep(10)
WinMove("minigui", "", $size[0], $size[1], $size[2], $size[3] - 3)
$size = WinGetPos("minigui")
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $msg = $btnPayMe
ShellExecute("https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick¤cy_code=USD&hosted_button_id=QKEQWHDTDSBZ4");
Case $msg = $savebtn
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
$destino = FileOpenDialog("Choose what script do you want to run as release method.", @ScriptDir, "Script Files (*.exe)")
If @error Then
GUICtrlSetData($INPUT13, $default)
$WW = $default
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
Else
GUICtrlSetData($INPUT13, $destino)
$WW = $destino
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
EndIf
Case $msg = $Buttonvirtualconf
If WinExists("candado") Then
If Not WinExists("Use these controls to configure the virtual restrain settings and position") Then
configurar()
EndIf
EndIf
Case $msg = $savebtn2
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
$destino2 = FileOpenDialog("Choose what script do you want to run as teasing method.", @ScriptDir, "Script Files (*.exe)")
If @error Then
GUICtrlSetData($INPUT132, $default2)
$WW2 = $default2
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
Else
GUICtrlSetData($INPUT132, $destino2)
$WW2 = $destino2
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
EndIf
Case $msg = $savebtn1
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
$destino1 = FileOpenDialog("Choose what script do you want to run as teasing method for sound.", @ScriptDir, "Script Files (*.exe)")
If @error Then
GUICtrlSetData($INPUT130, $default1)
$WW1 = $default1
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
Else
GUICtrlSetData($INPUT130, $destino1)
$WW1 = $destino1
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
EndIf
Case $msg = $testbtn
On_Exit()
Global $asegurarse = 1
Case $msg = $testbtnteasing
castigo()
Case $msg = $testbtn1
castigosound()
Case $msg = $startfake
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
MsgBox(48, 'BETA VERSION', "THIS OPTION IS NOT AVAIBLE YET" & @CRLF & "IT WILL BE INCLUDED ON FINAL VERSION")
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
Case $msg = $start
If $STATE2 = "CHECK" Then
$mamamdasquequedan = Random(GUICtrlRead($inputrandom), GUICtrlRead($input), 1)
$totalamamar = $mamamdasquequedan
Else
$mamamdasquequedan = GUICtrlRead($input)
$totalamamar = $mamamdasquequedan
EndIf
$read = GUICtrlRead($input)
$DELAY = GUICtrlRead($input100)
If GUICtrlRead($input100) > 59 Then
$DELAY = 59
EndIf
If $asegurarse2 = 0 Then
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
MsgBox(48, "ATENTION", "YOU MUST CHOOSE A COLOR ON THE DILDO" & @CRLF & "AND RUN A SUCCESFUL TEST LOOKING FOR IT" & @CRLF & "(using the 'Test' button)" & @CRLF & "TO LET THE PROGRAM KNOW WHEN YOU'VE DONE THE SUCK" & @CRLF & "" & @CRLF & "OTHERWISE YOU'LL BE STUCK ON A LOOP" & @CRLF & "AND PROGRAM WILL COUNT EVERY SUCK ATEMPT AS A FAIL", 10)
;~ If the input of time is lower than 200 it will read some of the inputs and will close the gui to let the coundown work
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
Else
If $asegurarse = 1 Then
$y = GUICtrlRead($input) ;reads the time in the input
GUICtrlRead($inputrandom)
Sleep(10)
$T = GUICtrlRead($input3)
$tiempodespuesrandom = GUICtrlRead($inputrandom20002)
Sleep(10)
$tiempodespues = GUICtrlRead($input3500)
Sleep(20)
$tiempoporfallar = GUICtrlRead($input300) * 60
Sleep(20)
cuentaatras()
Else
WinSetOnTop($Guipequecandado, "candado", 2)
WinSetOnTop($Guipeque, "minigui", 2)
MsgBox(48, "RELEASE METHOD HAS NOT BEEN TESTED YET", "YOU MUST TEST THAT THE DESIRED" & @CRLF & "RELEASE METHOD WORKS AS EXPECTED" & @CRLF & "" & @CRLF & "SESSION WILL NOT START UNTIL YOU CHECK IT" & @CRLF & "" & @CRLF & "If you want more infomation" & @CRLF & "please visit www.boundanna.com", 10)
;~ If the input of time is lower than 200 it will read some of the inputs and will close the gui to let the coundown work
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
EndIf
EndIf
Case $msg = $exercisebtn
guivelocidad()
Case $msg = $Button9
GUICtrlRead($input3)
$size = WinGetPos("minigui")
$sizemitad = $size[2] / 2
Sleep(10)
$coord1 = PixelSearch($size[0] + 6, $size[1] + 6, ($size[0] + $sizemitad) - 6, ($size[1] + $size[3]) - 6, $Color, $algoritmo * 4)
Sleep(10)
$buscar = PixelSearch(($size[0] + $sizemitad) + 6, $size[1] + 6, ($size[0] + $size[2]) - 6, ($size[1] + $size[3]) - 6, $Color, $algoritmo * 4)
If IsArray($buscar) And IsArray($coord1) Then
Local $Guipeque, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xff00ff00, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
$asegurarse2 = 1
Sleep(500)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
ElseIf Not IsArray($coord1) Then
Sleep(10)
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
Sleep(10)
MsgBox(48, "ERROR", "COLOR NOT FOUND" & @CRLF & "ON THE LEFT WINDOW" & @CRLF & "TRY CHANGING THE TOLERANCE", 10)
$asegurarse2 = 0
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
ElseIf Not IsArray($buscar) Then
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
Sleep(10)
MsgBox(48, "ERROR", "COLOR NOT FOUND" & @CRLF & "ON THE RIGHT WINDOW" & @CRLF & "TRY CHANGING THE TOLERANCE", 10)
$asegurarse2 = 0
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipeque)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $size[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, ($size[2] / 2) - 2, 1, ($size[2] / 2) - 2, $size[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $size[3] - 5, $size[2], $size[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $size[2] - 5, $size[3] - 5, $size[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
EndIf
EndSelect
Switch $msg
Case $Button56
WinSetOnTop($Guipeque, "minigui", 2)
$Data = _ColorChooserDialog($Color, $Main)
If $Data > -1 Then
$Color = $Data
EndIf
WinSetOnTop($Guipeque, "minigui", 1)
EndSwitch
WEnd
Func configurar()
Global $polla = 1
$configurar = GUICreate("Use these controls to configure the virtual restrain settings and position", 800, 200, 2, 0, $WS_EX_TOOLWINDOW)
GUISetState(@SW_SHOW, $configurar)
WinSetOnTop($configurar, "Use these controls to configure the virtual restrain settings and position", 1)
$Button1c = GUICtrlCreateButton("", 2, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button1c, "arriba2", $RT_BITMAP)
$Button2c = GUICtrlCreateButton("", 2 + 70, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button2c, "izquierda2", $RT_BITMAP)
$Button3c = GUICtrlCreateButton("", 2 + 140, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button3c, "derecha2", $RT_BITMAP)
$Button4c = GUICtrlCreateButton("", 2 + 210, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button4c, "abajo2", $RT_BITMAP)
$Button5c = GUICtrlCreateButton("", 282, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button5c, "alto2", $RT_BITMAP)
$Button6c = GUICtrlCreateButton("", 2 + 350, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button6c, "ancho2", $RT_BITMAP)
$Button7c = GUICtrlCreateButton("", 2 + 420, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button7c, "estrecho2", $RT_BITMAP)
$Button8c = GUICtrlCreateButton("", 2 + 490, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button8c, "bajo2", $RT_BITMAP)
$Button9c = GUICtrlCreateButton("", 800 - 75, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button9c, "test2", $RT_BITMAP)
$Button56c = GUICtrlCreateButton("", 800 - 145, 2, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Button56c, "select2", $RT_BITMAP)
$Buttonsicandado = GUICtrlCreateButton("", 800 - 75, 105, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Buttonsicandado, "sicandado", $RT_BITMAP)
$Buttonnocandado = GUICtrlCreateButton("", 800 - 145, 105, 65, 65, $BS_BITMAP)
_ResourceSetImageToCtrl($Buttonnocandado, "nocandado", $RT_BITMAP)
$algoritmo2 = 10
GUICtrlCreateLabel("TOLERANCE:", 495 + 75, 5)
$input3c = GUICtrlCreateInput($algoritmo2, 490 + 75, 23, 75, 37, $ES_READONLY)
GUICtrlSetFont(-1, 22, 400, 3, "Verdana")
GUICtrlSetBkColor(-1, 0xaeee10)
$upanddownc = GUICtrlCreateUpdown($input3c)
GUICtrlSetLimit($upanddownc, 99, 1)
Sleep(10)
$timepunishment = 180
GUICtrlCreateGroup("TIME PUNISHMENT", 4, 75, 195, 103)
GUICtrlSetBkColor(-1, 0xff3300)
$inputtimec = GUICtrlCreateInput($timepunishment, 75, 130, 100, 40, $ES_NUMBER)
GUICtrlSetFont(-1, 22, 400, 3, "Verdana")
GUICtrlSetBkColor(-1, 0xff3300)
$upanddowntimec = GUICtrlCreateUpdown($inputtimec)
GUICtrlSetLimit($upanddowntimec, 600, 1)
GUICtrlCreateLabel("Time in minutes that you will be tied", 19, 94)
GUICtrlSetColor(-1, 0x0000AE)
GUICtrlCreateLabel("if you break the virtual restrain", 29, 109)
GUICtrlSetColor(-1, 0x0000AE)
$picsrelojito = GUICtrlCreatePic("", 18, 125, 46, 46)
_ResourceSetImageToCtrl($picsrelojito, "TEST_GIF_reloj3")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("TEASING PUNISHMENT", 215, 75, 430, 103)
GUICtrlSetBkColor(-1, 0xff3300)
$savelabel2 = GUICtrlCreateLabel("Program that will tease you if you break the virtual restrain:", 155 + 125, 94)
GUICtrlSetColor(-1, 0x0000AE)
$default4 = @ScriptDir & "\pain.exe"
$WW4 = $default4
$INPUT132c = GUICtrlCreateInput($default4, 155 + 125, 112, 270, 20)
GUICtrlSetBkColor(-1, 0xff3300)
$savebtn2c = GUICtrlCreateButton("Change", 385 + 165, 110, 47, 23)
$testbtnteasingc = GUICtrlCreateButton("Test", 434 + 165, 110, 40, 23)
Sleep(10)
GUICtrlCreateLabel("Run the teasing program...", 155 + 125, 149)
GUICtrlSetColor(-1, 0x0000AE)
$Radiopadlock1 = GUICtrlCreateRadio("Once", 236 + 175, 145)
GUICtrlSetColor(-1, 0x0000AE)
$Radiopadlock2 = GUICtrlCreateRadio("During the whole punishment time", 226 + 235, 145)
GUICtrlSetColor(-1, 0x0000AE)
GUICtrlSetState($Radiopadlock2, $GUI_CHECKED)
$picspain = GUICtrlCreatePic("", 218, 92, 63, 78)
_ResourceSetImageToCtrl($picspain, "TEST_GIF_pain")
GUICtrlCreateGroup("", -99, -99, 1, 1)
polla()
EndFunc ;==>configurar
Func polla()
While $polla = 1
If GUICtrlRead($Radiopadlock2) = $GUI_CHECKED Then
$culo = 1
Else
$culo = 0
EndIf
$2msg = GUIGetMsg($configurar)
Select
Case $2msg = $testbtnteasingc
castigorompecandado()
Case $2msg = $savebtn2c
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
WinSetOnTop($configurar, "Use these controls to configure the virtual restrain settings and position", 2)
$destino2c = FileOpenDialog("Choose what script do you want to run as teasing method if you break the virtual restrain.", @ScriptDir, "Script Files (*.exe)")
If @error Then
GUICtrlSetData($INPUT132c, $default4)
$WW4 = $default4
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
WinSetOnTop($configurar, "Use these controls to configure the virtual restrain settings and position", 1)
Else
GUICtrlSetData($INPUT132c, $destino2c)
$WW4 = $destino2c
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
WinSetOnTop($configurar, "Use these controls to configure the virtual restrain settings and position", 1)
EndIf
Case $2msg = $Buttonsicandado
If $asegurarse2c = 0 Then
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
WinSetOnTop($configurar, "Use these controls to configure the virtual restrain settings and position", 2)
MsgBox(48, "ATENTION", "YOU MUST CHOOSE A COLOR ON THE DILDO" & @CRLF & "AND RUN A SUCCESFUL TEST LOOKING FOR IT" & @CRLF & "(using the 'Test' button)" & @CRLF & "IF YOU WANT TO USE THE VIRTUAL RESTRAIN", 10)
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
WinSetOnTop($configurar, "Use these controls to configure the virtual restrain settings and position", 1)
Else
$Maxtime3 = GUICtrlRead($inputtimec) * 60
If GUICtrlRead($Radiopadlock2) = $GUI_CHECKED Then
$culo = 1
Else
$culo = 0
EndIf
GUIDelete($configurar)
$polla = 0
EndIf
Case $2msg = $Buttonnocandado
candado()
GUIDelete($configurar)
$polla = 0
Case $2msg = $Button1c
$sizec = WinGetPos("candado")
Sleep(10)
$asegurarse2c = 0
If $sizec[1] > 168 Then
Sleep(10)
WinMove("candado", "", $sizec[0], $sizec[1] - 3, $sizec[2], $sizec[3])
Sleep(10)
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $2msg = $Button2c
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[0] >= 20 Then
WinMove("candado", "", $sizec[0] - 3, $sizec[1], $sizec[2], $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $2msg = $Button3c
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[0] + $sizec[2] <= @DesktopWidth - 370 Then
WinMove("candado", "", $sizec[0] + 3, $sizec[1], $sizec[2], $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $2msg = $Button4c
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[1] + $sizec[3] <= $altogui4 Then
WinMove("candado", "", $sizec[0], $sizec[1] + 3, $sizec[2], $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $2msg = $Button5c
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[1] + $sizec[3] <= $altogui4 Then
WinMove("candado", "", $sizec[0], $sizec[1], $sizec[2], $sizec[3] + 3)
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $2msg = $Button6c
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[0] + $sizec[2] <= @DesktopWidth - 370 Then
WinMove("candado", "", $sizec[0], $sizec[1], $sizec[2] + 3, $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $2msg = $Button7c
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[2] >= 50 Then
WinMove("candado", "", $sizec[0], $sizec[1], $sizec[2] - 3, $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Else
Beep(100, 100)
EndIf
Case $2msg = $Button8c
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[3] > 30 Then
WinMove("candado", "", $sizec[0], $sizec[1], $sizec[2], $sizec[3] - 3)
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
Case $2msg = $Button9c
GUICtrlRead($input3)
$sizec = WinGetPos("candado")
$sizemitadc = $sizec[2] / 2
Sleep(10)
$coord1 = PixelSearch($sizec[0] + 6, $sizec[1] + 6, ($sizec[0] + $sizec[2]) - 6, ($sizec[1] + $sizec[3]) - 6, $Color2, $algoritmo2 * 2)
If IsArray($coord1) Then
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xff00ff00, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
$asegurarse2c = 1
Sleep(500)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
ElseIf Not IsArray($coord1) Then
Global $Guipequecandado, $hGraphic, $hPen
Sleep(10)
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
Sleep(10)
MsgBox(48, "ERROR", "COLOR NOT FOUND" & @CRLF & "ON THE VIRTUAL PADLOCK WINDOW" & @CRLF & "PLEASE TRY CHANGING THE TOLERANCE", 10)
$asegurarse2c = 0
; Draw line
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
EndIf
EndSelect
Switch $2msg
Case $Button56c
WinSetOnTop($Guipeque, "minigui", 2)
WinSetOnTop($Guipequecandado, "candado", 2)
$Data2 = _ColorChooserDialog($Color2, $Main)
If $Data2 > -1 Then
$Color2 = $Data2
EndIf
WinSetOnTop($Guipeque, "minigui", 1)
WinSetOnTop($Guipequecandado, "candado", 1)
EndSwitch
WEnd
EndFunc ;==>polla
Global $y = GUICtrlRead($input) ;reads the time in the input
Func button1c()
$sizec = WinGetPos("candado")
Sleep(10)
$asegurarse2c = 0
If $sizec[1] > 168 Then
Sleep(10)
WinMove("candado", "", $sizec[0], $sizec[1] - 3, $sizec[2], $sizec[3])
Sleep(10)
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
EndFunc ;==>button1c
Func button2c()
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[0] >= 20 Then
WinMove("candado", "", $sizec[0] - 3, $sizec[1], $sizec[2], $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
EndFunc ;==>button2c
Func button3c()
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[0] + $sizec[2] <= @DesktopWidth - 370 Then
WinMove("candado", "", $sizec[0] + 3, $sizec[1], $sizec[2], $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
EndFunc ;==>button3c
Func button4c()
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[1] + $sizec[3] <= $altogui4 Then
WinMove("candado", "", $sizec[0], $sizec[1] + 3, $sizec[2], $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
EndFunc ;==>button4c
Func button5c()
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[1] + $sizec[3] <= $altogui4 Then
WinMove("candado", "", $sizec[0], $sizec[1], $sizec[2], $sizec[3] + 3)
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
EndFunc ;==>button5c
Func button6c()
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[0] + $sizec[2] <= @DesktopWidth - 370 Then
WinMove("candado", "", $sizec[0], $sizec[1], $sizec[2] + 3, $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
EndFunc ;==>button6c
Func button7c()
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[2] >= 50 Then
WinMove("candado", "", $sizec[0], $sizec[1], $sizec[2] - 3, $sizec[3])
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Else
Beep(100, 100)
EndIf
EndFunc ;==>button7c
Func button8c()
$sizec = WinGetPos("candado")
$asegurarse2c = 0
If $sizec[3] > 30 Then
WinMove("candado", "", $sizec[0], $sizec[1], $sizec[2], $sizec[3] - 3)
$sizec = WinGetPos("candado")
Global $Guipequecandado, $hGraphic, $hPen
; Draw line
_GDIPlus_Startup()
Sleep(10)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Guipequecandado)
$hPen = _GDIPlus_PenCreate(0xC4FF0000, 5)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, 1, $sizec[3], $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, 1, $sizec[2] - 5, 1, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, 1, $sizec[3] - 5, $sizec[2], $sizec[3] - 5, $hPen)
_GDIPlus_GraphicsDrawLine($hGraphic, $sizec[2] - 5, $sizec[3] - 5, $sizec[2] - 5, 0, $hPen)
Sleep(10)
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndIf
EndFunc ;==>button8c