[PoMoC]Ulepszenie skryptu

[vance14]

Siemka. Mam skrypt "komunikator" składający się z server.au3 i client.au3. Teraz bym chciał, żeby na jakieś stronie np. komunikator123.cba.pl byla by rejestracja. Jest wogule cos takiego mozliwe?

 

Server:

 

$ip = @IPAddress4
$port = "1111"
$max = 40
$0 = 0
Dim $akk[$max + 1][1]
TCPStartup ()
$TCPListen = TCPListen ($ip, $port, $max)
If $TCPListen = -1 Then
			For $0 = 1 To $max
		TCPCloseSocket ($akk[$0][0])
	Next
	TCPCloseSocket ($TCPListen)
	TCPShutdown ()
	Exit
EndIf
For $0 = 0 To $max
	$akk[$0][0] = 0
	Sleep (10)
Next

while 1
		lol()
		rev()
		sleep(300)
WEnd

func lol()
		If $akk[0][0] = $max Then Return
$Accept = TCPAccept($TCPListen)
  If $Accept = -1 Then Return
		For $0 = 1 To $max
		If $akk[$0][0] = 0 Then
						$aha = tcprecv($Accept,10000)
						$akk[$0][0] = $Accept
						traytip("polaczenie id",$Accept,1)
						$akk[0][0] += 1
						bac("Podłączył się " & $aha)
						Return
				EndIf
Next
Return
EndFunc

Func rev()
	For $0 = 1 To $max
		$wys = TCPRecv ($akk[$0][0],1000000)
				if not $wys = "" Then
		bac($wys)
				EndIf
	Next
EndFunc

func bac($pp)
										for $00 = 1 to $max
TCPSend ($akk[$00][0], $pp & @CRLF)
Next
$0 = 0
$00 = 0
Return
EndFunc

 

Client:

 

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
TCPStartup()
global $nick
$ip = "ip"
$port = "1111"
$nick = inputbox("AHA","AHA")
For $0 = 0 To 10
	$Socket = TCPConnect($ip, $port)
		TCPSend($socket,$nick)
	If $Socket <> -1 Then ExitLoop
	TCPCloseSocket($Socket)
		msgbox(0,"","Nie mona się połączyć z serwerem")
	Sleep(300)
Next
If $Socket = -1 Then
		msgbox(0,"","Nie mona się połączyć z serwerem")
TCPCloseSocket ($Socket)
	TCPShutdown()
	Exit
EndIf
ToolTip("Polaczono",0,0)
GUIRegisterMsg(0x0112 , '_WM_SYS_COMMAND')
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 198, 187, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 185, 89, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$Edit2 = GUICtrlCreateEdit("", 8, 104, 185, 49, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Button1", 120, 160, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

while 1
		recv()
		sleep(100)
		WEnd
Func recv ()
	$Recv = TCPRecv($Socket, 1000000)
	_GUICtrlEdit_AppendText($Edit1,$Recv)
EndFunc




Func _WM_SYS_COMMAND($hWnd, $iMsg, $wParam, $lParam)
		Switch $hWnd
				Case $Form1_1
						Switch $wParam
														Case 0xF060
																TCPCloseSocket ($Socket)
									   Exit
						EndSwitch
		EndSwitch
		EndFunc

		Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
		If BitAND($wParam, 0x0000FFFF) =  $GUI_EVENT_CLOSE Then $Interrupt = 1
		Switch BitAND($wParam, 0xFFFF)
				Case $Button1
							$0 = GUICtrlRead ($Edit2)
	If $0 = '' Then Return
	TCPSend($Socket,$nick & " - " & $0)
		guictrlsetdata($Edit2,"")
		EndSwitch
		Return $GUI_RUNDEFMSG
EndFunc

 

Po prostu w cliencie bedzie gui zeby podac login oraz haslo. Dane kont by byly przechowywane w bazie danych cba czyli sql.

[Sopelek997]

nie, rejestracja nie jest możliwa, gg działa na zasadzie odczytywania linii papilarnych...

jak chcesz zrobić rejestracje to nie w autoit, pisz w dziale dot php

[vance14]

W autoit + php kiedyś zrobiłem, ale zapomniałem :/ Ale być może na forum ktoś rozwiązanie zna. Osobiście C++ itd. nie znam