NegativeNrG

i created a circle with paint, and it has a rectangle white background, how would i get around this? i've tried GUIctrlsetbkcolor(-1,$GUI_BKCOLOR_TRANSPARENT), but it doesn't work.

probably 10-30 post will give you access.

i think u have to be full member..at least that's what i heard.

Awesome, Outshynd, This would definetly be useful for lot's of people. @underperson This is to Inject a dll file into another process. This is most useful for "hackers".

hmm, so if you want to write double, it would be $double = DllStructCreate('double') DllStructSetData($double,1,0xVALUE) _MemWrite($pid,0xADDRESS,$double) ?

ahh...Thanks, i guess.

How Would you Retrieve The Left And Top(X/Y) Coords of a control in a GUI? I Haven't seen any Control* of it yet, can it be possible?

#Include <Misc.au3> ? (BETA release) Or, you can search _IsPressed in Scripts and scraps.

Take a look at TCP Made easy by AutoitSmith: http://www.autoitscript.com/forum/index.ph...topic=20589&hl= if your looking for TCP chat programs, use the search function.

Even though i don't use IE regurly, this is Fantastic work!. Good job as always.

Just posted my Client, supports IRC connection.

Saw ZeroZShadow post about the IRC examples. Well here's a script that can connect to an IRC channel, chat(using the menu>PRIVATEMSG), Also supports Hotmail that can send e-mails(search google on commands). Script: Code: AutoIt #include <GUIConstants.au3> #Include <GUIEdit.au3> ;#INclude <string.au3> #notrayicon ; == GUI generated with Koda == Global $nick = '' $Input = InputBox('Enter name','Enter Your Name') Global $nick = $Input Global $nick1 = $Input Global $nick2 = $Input Global $nick3 = $Input Global $nick4 = $Input TCPStartup() Global $mainsocket = -1, $maxchar = 512000 $Form1 = GUICreate("Chat BETA 0.1", 237, 229, 340, 437) GUICtrlCreateLabel("Information:", 8, 8, 59, 17) $List1 = GUICtrlCreateList("", 0, 24, 233, 110, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("IP:", 8, 136, 17, 17) $Input1 = GUICtrlCreateInput("", 24, 136, 193, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Port:", 8, 160, 26, 17) $Input2 = GUICtrlCreateInput("", 32, 160, 185, 21, -1, $WS_EX_CLIENTEDGE) $Combo1 = GUICtrlCreateCombo('', 32, 184, 201, 21) GUIctrlsetdata($Combo1,'Hotmail Server') GUICtrlCreateLabel("Server", 0, 184, 35, 17) $Button1 = GUICtrlCreateButton("Connect", 72, 208, 89, 17) GUISetState(@SW_SHOW) GUIctrlsetdata($List1,'Chat Loaded.') GUIctrlsetdata($List1,'Made by NegativeNrG') While 1 $recv = TCPRecv($mainsocket,$maxchar) if $recv <> '' Then GUictrlsetdata($List1,$recv) Elseif $recv = 'Rock' Then TCPSend($mainsocket,'Paper') Endif ; if GUIctrlread($Combo1) = 'hello' Then ;GUictrlsetdata($Input1,'asdsdsda') ;Elseif GUictrlread($Combo1) = 'wtf' Then ;GUIctrlsetdata($Input2,'asdasadgfh') ;EndIf $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop ;Case $msg = $Combo1 ;if GUIctrlread($Combo1) = 'Hotmail' Then ;GUIctrlsetdata($Input1,'mail.hotmail.com') ;GUIctrlsetdata($Input2,'25') ;EndIf Case $msg = $Button1 If StringInStr(GUictrlread($Input1),'irc') or StringinStr(GUictrlread($Input1),'gamerz') Then GUIctrlsetdata($List1,'') GUIctrlsetdata($List1,GUIctrlread($List1) & 'Contacting Server..') Global $mainsocket = TCPConnect(TCPNameTOIp(GUIctrlread($Input1)),GUIctrlread($Input2)) Global $connectiontype = 'IRC' ;TCPSend($mainsocket,'NICK ' & $nick & @CRLF) ;TCPSend($mainsocket,'USER ' & $nick & $nick1 & $nick2 & $nick3 & $nick4 & @CRLF) Elseif StringinStr(GUIctrlread($Input1),'mail') Then Global $mainsocket = TCPCOnnect(TCPNameToIP(GUictrlread($Input1)),GUIctrlread($Input2)) Global $connectiontype = 'mail' Elseif StringInStr(GUIctrlread($Input1),'www') Then Global $mainsocket = TCPConnect(TCPNameToIp(GUIctrlread($Input1)),GUIctrlread($Input2)) Global $connectiontype = 'WWW' Else Global $mainsocket = TCPConnect(GUictrlread($Input1),GUictrlread($Input2)) GLobal $connectiontype = 'Normal' EndIf if $mainsocket = -1 Then GUictrlsetdata($List1,'') GUictrlsetdata($List1, 'Unable to Connect..') Else GUIctrlsetdata($List1,'') GUIctrlsetdata($List1, 'Server = ' & GUIctrlread($Input1) & ':' & GUIctrlread($Input2)) GUIctrlsetdata($List1,'SuccessFully Connected') TCPSend($mainsocket,$nick & ' Connected') Sleep(1000) EndIf ; == GUI generated with Koda == ;TCPStartup() ;Global $mainsocket = -1, $maxchar = 512000 $Form2 = GUICreate("Chat Window", 349, 220, 192, 125) $Edit1 = GUICtrlCreateEdit("", 0, 0, 345, 169, $ES_READONLY, $WS_EX_CLIENTEDGE) GUICtrlSetData($Edit1, "") $Input4 = GUICtrlCreateInput("", 0, 168, 265, 21, -1, $WS_EX_CLIENTEDGE) $Button4 = GUICtrlCreateButton("Send", 264, 168, 81, 17,$BS_DEFPUSHBUTTON) $packetshow = GUIctrlcreatemenu('Verify Username') $packetshowa = GUIctrlcreateMenuItem('Verify Username',$packetshow) $tools = GUIctrlcreatemenu('Tools') $priv = GUictrlcreateMenuitem('Private Message',$tools) GUISetState(@SW_SHOW) ;$mainsocket = TCPConnect(GUictrlread($Input1),GUIctrlread($Input2)) While 1 $recv = TCPRecv($mainsocket,$maxchar) if $recv <> '' Then GUictrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & $recv) _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) EndIf If Not WinActive('Chat Window') And $recv <> '' Then SoundPlay('type.wav') EndIf If StringinStr($recv,'PING') Then TCPSend($mainsocket,'PONG ' & StringSplit($recv," ")) EndIf $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $packetshowa TCPSend($mainsocket,'NICK' & ' ' & $nick & @CRLF) TCPSend($mainsocket,'USER' & ' ' &$nick & ' ' & $nick1 & ' ' & $nick2 & ' ' & $nick3 & ' ' & $nick4 & @CRLF) Case $msg = $priv $msguser = Inputbox('Message','Private Message to who?') $messagetosend = Inputbox('Message','Enter Your Message') TCPSend($mainsocket,'PRIVMSG ' & $msguser & ' :' & $messagetosend & @CRLF) Case $msg = $Button4 if $connectiontype = 'IRC' or 'mail' Then TCPSend($mainsocket,GUIctrlread($Input4) & @CRLF);$nick & ': ' & GUictrlread($Input4)) GUIctrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & GUIctrlread($Input4)) GUIctrlsetdata($Input4,'') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) Elseif $connectiontype = 'Normal' Then TCPSend($mainsocket,$nick & ': ' & GUictrlread($Input4)) GUIctrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & $nick & ': ' & GUIctrlread($Input4)) GUIctrlsetdata($Input4,'') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) if StringLeft(GUictrlread($Input4),5) = '/nick' Then Changenick() Elseif StringLeft(GUIctrlread($Input4),3) = '/me' Then me() Elseif StringLeft(GUIctrlread($Input4),5) = '/Send' Then TCPSendFile() ;Elseif stringLeft(GUIctrlread($Input4),5) = '/kill' Then ;Kill() ; ElseIf StringLeft(GUIctrlread($Input4),9) = '/Adminlog' Then ; password() Endif Endif ;TCPSend($mainsocket,GUIctrlread($Input4) & @CRLF);$nick & ': ' & GUictrlread($Input4)) ;GUIctrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & $nick & ': ' & GUIctrlread($Input4)) ;GUIctrlsetdata($Input4,'') ;_GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) Case Else ;;;;;;; EndSelect WEnd GUIDelete($Form2) Case Else ;;;;;;; EndSelect WEnd Func Changenick() Local $nickchange = StringTrimLeft(StringStripWS(GUIctrlread($Input4),2),6) TCPSend($mainsocket,$nick & ' is now known as ' & $nickchange & @CRLF) Global $nick = $nickchange GUIctrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & $nick & ': ' & GUIctrlread($Input4)) EndFunc Func me() Local $message = StringTrimLeft(StringStripWS(GUIctrlread($Input4),2),4) TCPSend($mainsocket,'*' & $nick & ' ' & $message & @CRLF) GUIctrlsetdata($Edit1,GUICtrlread($Edit1) & @CRLF & '*' & $nick & ' ' & $message & @CRLF) EndFunc Func TCPSendFile() Local $File = StringTrimLeft(StringStripWS(GUIctrlread($Input4),2),6) Local $data = FileRead($File,FileGetSize($File)) TCPSend($mainsocket,FileGetSize($File) & ',' & $data) EndFunc Func _HexToString($strHex) Local $strChar, $aryHex, $i, $iDec, $Char, $file, $strHexa, $iOne, $iTwo $aryHex = StringSplit(

error in EnCode it and ExcelCOM link.

yes, my post was useless, but the problem IS solved, therefore a single comment should be allowed.

haha, this guy is killing me.