Jump to content

testingtest

Active Members
  • Posts

    439
  • Joined

  • Last visited

Everything posted by testingtest

  1. Your awsome once again you help me I get this error two times but it does work Title: Tutorials: AutoIt3.exe - Entry Point Not Found Message: The procedure entry point GetProcessImageFileNameW could not be located in the dynamic link library PSAPI.dll Icon = 16 I just need a fix for that and gif's and I am moving on to my big project Thanks again
  2. Hello I was wondering how I can put a flash object in my GUI to run flash files and is there a way to also put gifs in my GUI. Thanks
  3. yea I added sleep(100) it can be removed but seemed better with it in there I think if this does get popular I will finish it the reason for not finishing it is because I won't use it just an example of gui hole
  4. well this way the person who is presenting can put the cursor over the area they want to talk about and this way people can't get distracted or lost
  5. Hello I tried making this project a while ago and never continued but it needs a bit of fixing but you'll get the whole point of it which is pretty cool. If you are a admin or teacher and want people to watch you do stuff on the pc without them being distracted and help them not getting lost this is for you test it pretty neat I don't feel like fixing it though #include <GuiConstants.au3> Const $RGN_AND = 1 Const $RGN_OR = 2 Const $RGN_XOR = 3 Const $RGN_DIFF = 4 Const $RGN_COPY = 5 Global $Min = 10 , $Add = 10 , $Width = 100 , $Height = 100 , $Switch HotKeySet("{ESC}" , "_Exit") HotKeySet("{F10}" , "_Switch") HotKeySet("{-}" , "Min") HotKeySet("{+}" , "Add") MsgBox(0 , "" , "to make width or height smaller -" & @CRLF & "to make width or height bigger +" & @CRLF & "to switch between width and height F10") $GUI = GuiCreate("", @DesktopWidth , @DesktopHeight , -1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) GUICtrlSetBkColor($GUI , 0xC0C0C0) GuiSetState() WinSetTrans($GUI , "" , 200) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect Sleep(100) $Pos = MouseGetPos() _GuiHole($GUI , $Pos[0], $Pos[1] , $Width , $Height) WEnd Exit Func _GuiHole($h_win, $i_x, $i_y, $i_sizew, $i_sizeh) Dim $pos, $outer_rgn, $inner_rgn, $wh, $combined_rgn $pos = WinGetPos($h_win) $outer_rgn = DllCall("gdi32.dll", "long", "CreateRectRgn", "long", 0, "long", 0, "long", $pos[2], "long", $pos[3]) $inner_rgn = DllCall("gdi32.dll", "long", "CreateRectRgn", "long", $i_x, "long", $i_y, "long", $i_x + $i_sizew, "long", $i_y + $i_sizeh) $combined_rgn = DllCall("gdi32.dll", "long", "CreateRectRgn", "long", 0, "long", 0, "long", 0, "long", 0) DllCall("gdi32.dll", "long", "CombineRgn", "long", $combined_rgn[0], "long", $outer_rgn[0], "long", $inner_rgn[0], "int", $RGN_DIFF) DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $combined_rgn[0], "int", 1) EndFunc Func _Switch() If $Switch = 0 Then $Switch = 1 ElseIf $Switch = 1 Then $Switch = 0 Else Exit EndIf Return $Switch EndFunc Func Min() If $Switch = 0 Then $Width = $Width - 10 Else $Height = $Height - 10 EndIf Return $Width & $Height EndFunc Func Add() If $Switch = 0 Then $Width = $Width + 10 Else $Height = $Height + 10 EndIf Return $Width & $Height EndFunc Func _Exit() Exit EndFunc
  6. Thanks just what I wanted your my hero
  7. hello i need some help please i want to get info from the server for example the computer name and then send the computer name over to the client i know i would have to use TCPRecv and and TCPSend but how do i tell it what info i want from the socket i bet it's not even hard to do but for me to have to think of the process is hurting my head i tell it what socket i am connected to and tell it how much data i want send and recv but no option to pick the data you want back
  8. I could see it being used but theres really no point of spamming your friends but I can't not stop the world from being stupid if some idiots want to use it I could care less if it makes their friends mad. I only posted it because I am bored out of my mine and since I seen someone else was making a msn spammer I decided to make one as well I seen no point of making autoit window shells like others in this forum.
  9. I did not make it for people to actually use it you would be stupid to use it on your own msn the purpose was for others to see how this could be done proper. edited: although I should of known people would use it but whatever thats your problem if you make your friends mad I just use it to spam smarterchild
  10. what I didn't know what to make so I decided to make my own msn spammer
  11. I was looking at example scripts and came across this post Msn Spammer I only made one of my own since I was bored it's not tested but should work Opt("WinTitleMatchMode", 2) Global $Text $Text = InputBox("Msn Spammer" , "Msn Spammer" , "Enter the text you want to spam" , "" , 200 , 50) ;cleaning opened msn windows Do If WinExists("- Conversation") Then WinKill("- Conversation") Until Not WinExists("- Conversation") ;cleaning opened msn windows end _Spam() Func _Spam() If WinExists("- Conversation") Then ClipPut($Text) WinActivate("- Conversation") Send(ClipGet() & "{ENTER}") WinKill("- Conversation") Else Do Sleep(100) Until WinExists("- Conversation") _Spam() EndIf EndFuncoÝ÷ Ú«zƧ¢Ø^®Þ";¬µÈZ¶*iºÛh©Ö­|×ڲ׫jëh×6Opt("WinTitleMatchMode", 2) Global $Text $Text = InputBox("Msn Spammer" , "Msn Spammer" , "Enter the text you want to spam" , "" , 200 , 50) ClipPut($Text) ;cleaning opened msn windows Do If WinExists("- Conversation") Then WinKill("- Conversation") Until Not WinExists("- Conversation") ;cleaning opened msn windows end _Spam() Func _Spam() If WinExists("- Conversation") Then WinActivate("- Conversation") Send(ClipGet() & "{ENTER}") WinKill("- Conversation") Else Do Sleep(100) Until WinExists("- Conversation") _Spam() EndIf EndFunc
  12. not only that one I was giving a example. my problem is that is does not work at ALL >.< I see the includes but it doesn't work
  13. Hey sorry I could not add a lot of detail I was really busy. I tried to do this in scite _ScreenCap_Capture() and it shows it as normal text as if it doesn't even know what I am asking of it. I am positive I installed it correctly
  14. yea I did that but didin't work
  15. Hello I install autoit3lib but it doesn't work the files install but when I use Scite it doesn't reconize it.
  16. when I run lod3n launcher I get that error and yes there is a var called $ghA3LGDIPDll in A3LGDIPlus that is 141kb I found it in autoit folder in the include folder I am happy your trying to help but this is making me mad I have installed everything needed
  17. I mean't I checked the include to see were it was calling the dll, and I checked my system 32 and the dll file is there but the script still complains it can't call it proper edit: $aResult = dllcall($gha3lgpdll, *int* , "gdiploadimagefromfile" , "wstr" , $filename" , *int_ptr" , 0) Error autoit has encountered a fatal crash as a result of: unable to execute dllcall
  18. well I checked the autoit file and looked were it was calling it and didn't see it, so i would not know were to locate it.
  19. I run a script that includes #include <A3LGDIPlus.au3> and says that it is unable to execute the dll $ghA3LGDIPDll
  20. thanks but that doesn't work for me. I install new beta of autoit and udf of functions then installed that and didn't work the udf install said I am using a lower version of autoit which is a lie. by udf I referring to Pualies udf's edited: wow just notice wrong thread sorry thats the first I think lol
  21. Hi How do I make a GUI the shape of the picture including transparent parts thanks
  22. I have uninstalled autoit and installed the newest beta from 2007 and it says I am using a older one. I even ran toggle beta.exe and it still gave me errors while installing?
  23. thanks would $i = 1+ also work?
  24. I was wondering If I had a script that did this GUICreate("test", 261.5, 275) $Key = GUICtrlCreateInput("" , 0, 255, 230, 21) $Gen = GUICtrlCreateButton("Gen", 232, 255, 30, 21, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Gen _test() EndSwitch WEnd Func _Test() $Keys[1] = "line 1" $Keys[2] = "line 2" $i = 0+1 GUICtrlSetData($Key , "") GUICtrlSetData($Key , $Keys[$i] , "Error") EndFunc how can I make it remember what key it did already so it will move on to the next so if the first key is done ($keys[1] = "line 1") It will remember that until its push again then it will clear input and put the second key I tried messing with variables that told it what ones were done but didn't work well
  25. Aw I feel stupid but I never really did a until loop. Thanks guys was it really hard for some of you to understand if so sorry ill try better next time
×
×
  • Create New...