Posted: Wed Jul 27, 2005 3:44 pm
Thanks for the info.
http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
version1 = 0
version2 = 0
version3 = 1
#WindowWidth = 800
#WindowHeight = 600
Dim Mois_date(12)
Dim suppr$(2)
Global CheminAppli$
Global Delim$
cheminappli$=""
Delim$="|"
Global nbclients
Global url$
Global notel$
Global file$
Global boucle
OpenConsole()
repert$=ProgramParameter()
If repert$=""
PrintN("")
PrintN("XXXX v"+Str(version1)+"."+Str(version2)+"."+Str(version3)+" <Répertoire>")
PrintN("")
CloseConsole()
Else
RunProgram("c:\program files\internet explorer\iexplore.exe")
Delay(2000)
AU3_send_("{TAB}",0)
AU3_send_("www.yahoo.com",0)
AU3_send_("{ENTER}",0)
ok=0
While ok=0
Delay(2000)
AU3_send_("{^A}",0)
AU3_send_("{^C}",0)
clip$=AU3_ClipGet_()
If FindString(clip$,"hello",0)>0
ok=1
EndIf
Wend
ExamineDirectory(0,repert$,"u*.txt")
CloseConsole()
EndIf
You will need to use a pointer for this function, here is an example:GG wrote:I've got a problem with the function AU3_ClipGet_()..
Code: Select all
RunProgram("notepad")
AU3_WinActivate_("Untitled - Notepad","")
Delay(250)
AU3_Send_("testing one two three",0)
AU3_Send_("^a",0)
AU3_Send_("^c",0)
*temp.s = Space(1024)
AU3_ClipGet_(*temp,1024)
clip$ = PeekS(*temp)
Debug clip$
Code: Select all
RunProgram("notepad")
AU3_WinActivate("Untitled - Notepad","")
Delay(250)
AU3_Send("testing one two three",0)
AU3_Send("^a",0)
AU3_Send("^c",0)
clip$ = AU3_ClipGet()
Debug clip$
I have published my lib after you, but at beginning my lib, there was no lib in all forumsBeach wrote:Man... I should really search the German forums before spending time on projects like this.
New Version is in progress, but TailBite is not finished.HAnil wrote:http://www.purearea.net/pb/showcase/show.php?id=250
link is not working.
How can I download this wrapper ?
HAnil
Coo'!dmoc wrote:Similar (some report said "better"): http://www.autohotkey.com/
Edit: but I don't think there is a dll/activex interface
Code: Select all
AU3_GetStringBuffer(); Default = 4000 Chars
AU3_SetStringBuffer(nSize.l)