Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[problem]Baza Mysql oraz Checkbox

Arkeus

Przez Arkeus
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

Opublikowano

Problem polega ze nie działa logowanie do bazy.

Kod:

 

 


#include "mysql.au3"
$ok = False
$username = "root" ;nazwa uzytkownika mysql
$password = "*******" ;haslo do bazy
$server = "localhost" ;adres serwera
$database = "baza" ;nazwa bazy

$klucz = "12345" ; przykladowy klucz

$SQL = _mysqlconnect($username, $password, $database, $server); połączenie z bazą danych
_Query($SQL, "SET NAMES 'utf8';")
$ulquery = _Query($SQL, "SELECT * FROM tabela_kluczy;")
With $ulquery
  While Not .EOF
If $klucz = $ulquery['key'].value Then
	 $ok = True
	 ExitLoop
  EndIf
  .MoveNext
  WEnd
EndWith

If $ok = True Then
  MsgBox(64,"","Klucz ok")
Else
  MsgBox(4112,"","Klucz jest nieprawidłowy")
EndIf

 

 

Błąd konsoli:

 

 

 


>Running:(3.3.8.1):C:\Program Files (x86)\AutoIt3\autoit3.exe "D:\Autoit\Koda haslo detector\Nowy AutoIt v3 Script.au3"	
D:\Autoit\Koda haslo detector\Nowy AutoIt v3 Script.au3 (13) : ==> Only Object-type variables allowed in a "With" statement.:
With $ulquery
With ^ ERROR
->20:45:55 AutoIT3.exe ended.rc:1
>Exit code: 1	Time: 1.036

 

 

Mam też problem bo chceckbox nie działa

 

 

 


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Anty-Idle", 246, 199, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 48, 8, 155, 65)
$Button2 = GUICtrlCreateButton("Instrukcja", 8, 120, 227, 33)
$Button3 = GUICtrlCreateButton("Exit", 8, 160, 227, 33)
$Checkbox1 = GUICtrlCreateCheckbox("Food Eat", 104, 88, 97, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
  Case $GUI_EVENT_CLOSE
	 Exit
  Case $Button1
	 idle()
	 If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
		   While 1
		   Sleep(1000)
		   ControlSend("Tibia", "", "", "{F12}")
		   Sleep(1500)
		   ControlSend("Tibia", "", "", "{F12}")
		   Sleep(1500)
		   ControlSend("Tibia", "", "", "{F12}")
		   Sleep(1500)
		   ControlSend("Tibia", "", "", "{F12}")
		   Sleep(30000)
		   ControlSend("Tibia", "", "", "{F12}")
		   WEnd
			 EndIf

  Case $Button2
	 MsgBox(0, "Instrukcja", "cos")
  Case $Button3
	 Exit
  EndSwitch
WEnd
Func idle()
  Global $y[7]
  $y[0] = '27899'
  $y[1] = '29143'
  $y[2] = '28799'
  $y[3] = '29211'
  $y[4] = '30999'
  $y[5] = '28000'
  $y[6] = '30000'
  Sleep(1000)
  While 1
  For $i = 0 To 1
	 Sleep(1000)
	 ControlSend("Tibia", "", "", "{CtrlDown}")
	 Sleep(1000)
	 ControlSend("Tibia", "", "", "{Up}")
	 Sleep(1000)
	 ControlSend("Tibia", "", "", "{Left}")
	 ControlSend("Tibia", "", "", "{CtrlUp}")
	 Sleep($y[Random(0, 6)])
	 ControlSend("Tibia", "", "", "{CtrlDown}")
	 Sleep ( 1000 )
	 ControlSend("Tibia", "", "", "{Down}")
	 Sleep(1000)
	 ControlSend("Tibia", "", "", "{Right}")
	 Sleep(500)
	 ControlSend("Tibia", "", "", "{CtrlUp}")
  Next
  Sleep($y[Random(0, 6)])
  ControlSend("Tibia", "", "", "{CtrlDown}")
  Sleep(1000)
  ControlSend("Tibia", "", "", "{Right}")
  Sleep(1000)
  ControlSend("Tibia", "", "", "{Down}")
  Sleep(1000)
  ControlSend("Tibia", "", "", "{Right}")
  Sleep(1000)
  ControlSend("Tibia", "", "", "{Up}")
  Sleep(1000)
  ControlSend("Tibia", "", "", "{CtrlUp}")
  WEnd
EndFunc   ;==>idle

Func Wyjscie()
  Exit
EndFunc

 

 

C.J Weteran

C.J

Opublikowano
Weteran

C.J

Opublikowano

Jak checkbox ma działać skoro przed sprawdzaniem, czy jest zaznaczony robi się nieskończona pętla?

 

Tego też nie ogarniam..

For $i = 0 To 1

 

Pętla w pętli..

 

 

###

Z tą bazą to ja nie wiem, a nie chcę cię wprowadzać w błąd ;>

###

 

 

no ale to ogolnie nie dotyczy checkboxa no nie? ;p

Nie, checkbox jest dobry, tylko się nie wykona, bo przed nim jest nieskończona pętla.

1329036830-U154499.png
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano
no ale to ogolnie nie dotyczy checkboxa no nie? ;p

nie, ale przez to nigdy nie jest sprawdzany jego stan -.-

981841412442977292370.png
Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

  • Autor
Opublikowano

No tak to racja ale ja juz sie normalnie poddaje nie wiem cze mu nie dzialaja te checkboxy nawet taki kod mi nie dziala:


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 174, 134, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Kox", 64, 56, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
		  If GUICtrlRead($Checkbox1) = 1 Then
MsgBox ( 0, "cos", "hehe" )
		   EndIf
EndSwitch
WEnd

 

@up tzn autoit sie nie nadaje do takiego czegos? bo to troche glupie robic program ktorzy moga miec wszyscy a autor nie chce go udostepniac osoba trzecim ; /

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

z checkboxem spróbuj coś takiego:

If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then

zamiast:

If GUICtrlRead($Checkbox1) = 1 Then

9obpmnjr.png

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

No tak to racja ale ja juz sie normalnie poddaje nie wiem cze mu nie dzialaja te checkboxy nawet taki kod mi nie dziala:

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 174, 134, 192, 124)

$Checkbox1 = GUICtrlCreateCheckbox("Kox", 64, 56, 97, 17)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

If GUICtrlRead($Checkbox1) = 1 Then

MsgBox ( 0, "cos", "hehe" )

EndIf

EndSwitch

WEnd

 

no nie działa bo najpierw wychodzisz z programu, a potem sprawdzasz checkboxa. OMG

981841412442977292370.png
Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

  • Autor
Opublikowano

Dziękuję Sopel.

Raymound nie rozumiem, oco ci dokładniej chodzi z tym ze mozna sobie dziabnąć passy jak będą zapisywane w bazie jeszcze myślalem nad schematem Program>Strona>Baza bo z tego co mi już wiadomo można chyba jakoś odkodować pakiety z połączenia i wtedy bedzie wiadomo a więc jak to dokładniej zrobić tak zeby dzialalo i bylo zabezpieczone tzn Logowanie: Login,Password?

 

Z tym checkboxem jest jakaś masakra...


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Anty-Idle", 247, 200, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 227, 65)
$Button2 = GUICtrlCreateButton("Instrukcja", 8, 120, 227, 33)
$Button3 = GUICtrlCreateButton("Exit", 8, 160, 227, 33)
$Checkbox1 = GUICtrlCreateCheckbox("Food Eat", 88, 88, 97, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
While 1
Sleep(1000)
ControlSend("Tibia", "", "", "{F12}")
Sleep(1500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(1500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(1500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(30000)
ControlSend("Tibia", "", "", "{F12}")
  WEnd
EndIf
Case $Button1
       Exit
EndSwitch
WEnd

Załóżmy ze mam tak no i jak to zmienic zeby on działał... bo nawet jak zaznacze to go nie sprawdza czyli blad tej nieskonczonej petli to jak to zrobic?

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

chodzi o to że jeżeli udostępnisz taki kod

 

$username = "root" ;nazwa uzytkownika mysql

$password = "*******" ;haslo do bazy

$server = "localhost" ;adres serwera

$database = "baza" ;nazwa baz

to ktoś to zdekompiluje i już będzie miał passy do bazy więc może ci ją skasować czy też ukraść co tam chce

program>strona to będzie najkorzystniejsze wyjście :)

Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

  • Autor
Opublikowano

Ok rozumiem cię no ale z tego co wiem nie tak łatwo jest zdekompilować zabezpieczony obfuscatorem hehehe ; p

Gdybyś mógł napisz mi na pw czy jakis tutorial podaj jak to dokladniej zrobic tzn polaczenie program>strona.

Co do checkboxa masz jakies pojecie oco moze chodzic?

Wgle pisales bota do tibi juz sie tym nie interesujesz?

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

Ok rozumiem cię no ale z tego co wiem nie tak łatwo jest zdekompilować zabezpieczony obfuscatorem hehehe ; p

Gdybyś mógł napisz mi na pw czy jakis tutorial podaj jak to dokladniej zrobic tzn polaczenie program>strona.

Co do checkboxa masz jakies pojecie oco moze chodzic?

Wgle pisales bota do tibi juz sie tym nie interesujesz?

 

checkboxa wyjaśniłem ci ja jak i sopelek.

 

Tu masz taki skromny mój tutek o checkboxach:

http://www.mpcforum.pl/topic/581939-tutkod-checkboxy-opis-i-dzialanie

a co do tego, o czym napisał ci raymund to możesz zastosować branie tych informacji z pliki .ini

9obpmnjr.png

Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

  • Autor
Opublikowano

Niby ogarniete tyle ze nie dziala 1 z drugim...


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Anty-Idle", 247, 200, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 227, 65)
$Button2 = GUICtrlCreateButton("Instrukcja", 8, 120, 227, 33)
$Button3 = GUICtrlCreateButton("Exit", 8, 160, 227, 33)
$Checkbox1 = GUICtrlCreateCheckbox("Food Eat", 88, 88, 97, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Global $s[11]
$s[0] = '10000'
$s[1] = '11000'
$s[2] = '11200'
$s[3] = '18000'
$s[4] = '10999'
$s[5] = '14705'
$s[6] = '12467'
$s[7] = '19111'
$s[8] = '17444'
$s[9] = '13223'
$s[10] = '15771'
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Checkbox1) = 1 Then
While 1
Sleep(1000)
ControlSend("Tibia", "", "", "{F12}")
Sleep(1500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(1500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(1500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(30000)
ControlSend("Tibia", "", "", "{F12}")
  WEnd
  EndIf
While 1
ControlSend("Tibia", "", "", "{CTRLDOWN}")
Sleep(6000)
ControlSend("Tibia", "", "", "{LEFT}")
Sleep(4000)
ControlSend("Tibia", "", "", "{RIGHT}")
Sleep(4000)
ControlSend("Tibia", "", "", "{DOWN}")
Sleep(6000)
       ControlSend("Tibia", "", "", "{CTRLUP}")
Sleep($s[Random(0, 10)])
  WEnd
Case $Button2
MsgBox(0, "Instrukcja", "cos")
Case $Button3
Exit
       Exit
EndSwitch
WEnd

C.J Weteran

C.J

Opublikowano
Weteran

C.J

Opublikowano

Zrób w jednej, ale np. co 500 powtórzeń niech wykona ten drugi kod.

 

 

While 1
<kod>
$i += 1
If $i = 500 Then
$i = 0
<drugi kod>
endif
Wend

 

Rozumiesz?

1329036830-U154499.png
Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

  • Autor
Opublikowano

Tak ale chciałem to zrobić w formie checkboxa a 2 jesli jest zaznaczony niech doda funkcje nr 2 ale widze ze nie da rady no dobra trudno zrobie to pod 1 buttonem 2 funkcje i tyle ; /

Ciekawe czy kiedys to poprawia, postaraja sie o lepsze mozliwosci wielowatkowosci ; p

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

Ok rozumiem cię no ale z tego co wiem nie tak łatwo jest zdekompilować zabezpieczony obfuscatorem hehehe ; p

Gdybyś mógł napisz mi na pw czy jakis tutorial podaj jak to dokladniej zrobic tzn polaczenie program>strona.

Co do checkboxa masz jakies pojecie oco moze chodzic?

Wgle pisales bota do tibi juz sie tym nie interesujesz?

ie.au3 logowanie

robisz sobie w php skrypt logowania, czyli haslo login, i np. po zalogowaniu wyskakuje komunikat np. 1

komendą w ie zczytujesz źródło strony i hyc, dajesz if czy to się równa 1 czy nie(jak będzie mi się strasznie nudzić po nocach to coś skleje)

co do obfuscatora, na pewno znalazł by sie ktoś aby przetłumaczyć te 4 linijki kodu

co do tibi i mojego pisania botów, ja tylko piszę boty gdy np. potrzebuje akurat na własną korzyść, a czasami dojebie gui i wrzuce jak np. teraz bot do ogame

checkbox, 1 wynik z google

http://www.autoitscr...checked-or-not/

Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

  • Autor
Opublikowano

Oby ci się nudziło hehe ;p nie no ale to nie bedzię łatwe do złamania? bo mi zalezy na 99% bezpieczenistwa 100 nigdy nie ma xD

Ja myslalem to na takiej zasadzie ze:

Program w jakiś sposób łączy się ze strona i dostaje dostep do mysql i wtedy sobie pobiera ladnie login i haslo i sprawdza wpisy no jakoś tak..

Zastanawiam się czy zwyklego nie zrobić.

A masz może jakiś pomysł na targeting,cavebota? na Angolu mi sie nudzilo to sobie troche w zeszycie popisalem i cos mniejwiecej odkrylem ale z tego co sie dowiedzialem kiedys to loku pisal i jest podobno inna funkcja na zaznaczanie a inna na bicie ze tak powiem..

Jak ci sie nudzi to najlepiej bilbioteke by bylo napisac nie? ;p jakies wlasne funkcje dodac odnosnie tibi mozliwe ze duzo osob poszlo by w strone autoita tylko i dla tibi.

Jezu to w końcu da sie z tym checkboxem czy nie bo już nie wiem ;(

Słuchaj kiedyś pisałeś mi że y jest jakaś funkcja na gui tak zeby dało się 2 button nacisnąć jak się wykonuje funkcja przypisana do 1?

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

robisz gui

po gui dodajesz to

GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

i wrzucasz tą funkcję

 

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
If BitAND($wParam, 0x0000FFFF) = $GUI_EVENT_CLOSE Then $Interrupt = 1
Switch BitAND($wParam, 0xFFFF)
Case $Button1

EndSwitch
Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

ja na zaznaczanie potwora użyłem delphi blackd proxy i pakietów, au3 to syf

@down to na guziki

Arkeus Pasjonat

Arkeus

Opublikowano
Pasjonat

Arkeus

  • Autor
Opublikowano

To jest do checkboxa czy tego 2?

Kurde bo zastanawiam się w sumie to przeszedl bym na delphi bo pisza o nim na forach (wsparcie) no ale go nie znam a poza tym:

W autoit mam juz jakies doswiadczenie,szkoda mi tego co juz zrobilem ALE boje się ze bedzie sie wieszał bot co o tym myslisz?

Nie da rady zrobic full bota plynnie dzialajacego?

 

@EDIT tak to ma wygladac? bo sie zamyka odrazu

 

 


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Anty-Idle", 249, 161, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 227, 65)
$Button2 = GUICtrlCreateButton("Instrukcja", 8, 80, 227, 33)
$Button3 = GUICtrlCreateButton("Exit", 8, 120, 227, 33)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
#EndRegion ### END Koda GUI section ###
Global $s[11]
$s[0] = '20000'
$s[1] = '21000'
$s[2] = '21200'
$s[3] = '28000'
$s[4] = '20999'
$s[5] = '24705'
$s[6] = '22467'
$s[7] = '29111'
$s[8] = '27444'
$s[9] = '23223'
$s[10] = '25771'
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
If BitAND($wParam, 0x0000FFFF) = $GUI_EVENT_CLOSE Then $Interrupt = 1
Switch BitAND($wParam, 0xFFFF)
Case $Button1
Sleep($s[Random(0, 10)])
While 1
Sleep(1900)
ControlSend("Tibia", "", "", "{F12}")
Sleep(5500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(5500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(5500)
ControlSend("Tibia", "", "", "{F12}")
Sleep(30000)
ControlSend("Tibia", "", "", "{F12}")
Sleep(3000)
ControlSend("Tibia", "", "", "{CTRLDOWN}")
Sleep(6000)
ControlSend("Tibia", "", "", "{LEFT}")
Sleep(4000)
ControlSend("Tibia", "", "", "{RIGHT}")
Sleep(4000)
ControlSend("Tibia", "", "", "{DOWN}")
Sleep(6000)
       ControlSend("Tibia", "", "", "{CTRLUP}")
WEnd
Case $Button2
MsgBox(0, "Instrukcja", "Ustaw:F12-Food postac automatycznie rusza sie co losowy odstep czasu")
Case $Button3
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

 

 

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...