|
You last visited: Today at 00:22
Advertisement
Zahl +1 an eine URL hängen
Discussion on Zahl +1 an eine URL hängen within the AutoIt forum part of the Coders Den category.
11/18/2015, 20:05
|
#1
|
elite*gold: 0 
Join Date: Jan 2010
Posts: 2,709
Received Thanks: 426
|
Zahl +1 an eine URL hängen
hey ,
ich hab mir ebend autoit runtergeladen und wollte mir gerne nen kleines script schreiben. Ich brauche dafür die funktion das wenn man auf button 1 folgendes passiert. Wenn der browser nicht offen ist öffnet er sich und eine bestimmte url wird geöffnet. Bei zweiten klicken wird einfach an den Link eine eins rangehängt. Beim dritten klicken wird daraus ne zwei und so weiter  Bis jetzt bin ich schon so weit :
Quote:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Erfan\Desktop\Form1.kxf
$Form1 = GUICreate("LightShot -Random Pic Finder", 336, 220, 302, 218)
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 153)
$Image1 = GUICtrlCreatePic("C:\Users\Erfan\Desktop\LlRAv4u5a ZFonMjkDWzAKa_4.jpg", 16, 24, 105, 97)
$Label1 = GUICtrlCreateLabel("name", 152, 24, 145, 17)
$Label2 = GUICtrlCreateLabel("Version 1.0", 152, 48, 57, 17)
$Label3 = GUICtrlCreateLabel("Copyright by Wigged oder SNEG0RR #clean#aqualegende ", 16, 136, 289, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("&Nächstes Bild", 108, 176, 115, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$count = 1
Run("C:\Programme\Mozilla Firefox\firefox;exe")
WinWaitActive("Mozilla Firefox")
Sleep(5000)
Do
Send("http://url/9000s"&$count)
$count = $count + 1
Until $count > 500000
|
Aber es klappt nicht so gut  kann jemand helfen ?
|
|
|
|
11/18/2015, 20:57
|
#2
|
elite*gold: 0
Join Date: Apr 2011
Posts: 363
Received Thanks: 166
|
First this is wrong:
Run("C:\Programme\Mozilla Firefox\firefox;exe") ";" LOL
Second:
Do
Send("http://url/9000s"&$count)
$count = $count + 1
Until $count > 500000
Using this will send continuous keys inputs to nowhere.
A better solution will be...
Quote:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Erfan\Desktop\Form1.kxf
$Form1 = GUICreate("LightShot -Random Pic Finder", 336, 220, 302, 218)
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 153)
;$Image1 = GUICtrlCreatePic("C:\Users\Erfan\Desktop\LlRAv4u5a ZFonMjkDWzAKa_4.jpg", 16, 24, 105, 97)
$Label1 = GUICtrlCreateLabel("name", 152, 24, 145, 17)
$Label2 = GUICtrlCreateLabel("Version 1.0", 152, 48, 57, 17)
$Label3 = GUICtrlCreateLabel("Copyright by Wigged oder SNEG0RR #clean#aqualegende ", 16, 136, 289, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("&Nächstes Bild", 108, 176, 115, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;If Not ProcessExists("firefox.exe") Then Run("C:\Programme\Mozilla Firefox\firefox.exe") ;check if not running or so...
;won't recommend that way u can instead use inetread to get the img and gdiplus to display it.
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
$count = 1
While Sleep(20)
$msg = GUIGetMsg()
Switch $msg
Case -3 ;close event
ExitLoop
Case $Button1
newUrl()
EndSwitch
WEnd
_GDIPlus_Shutdown()
Func newUrl()
;$url = "http://url/9000s"&$count
$url = "http://www.elitepvpers.com/forum/customavatars/avatar2040102_7.gif" ;just an example...
$imgBinary = InetRead($url,8);Load image from url into memory
$bitmap = _GDIPlus_BitmapCreateFromMemory($imgBinary);Create s a bitmap with that image source
_GDIPlus_GraphicsDrawImageRect($hGraphic,$bitmap,1 6, 24, 105, 97);Draws the image into our graphic
_GDIPlus_BitmapDispose($bitmap);release memory
$count += 1
EndFunc
#cs
Sleep(5000)
Do
Send("http://url/9000s"&$count)
$count = $count + 1
Until $count > 500000 ;what is thisssssss it will crash your computer dude haha
#ce
|
if u want to use firefox then there is an udf that u can use, here is a link to it:
|
|
|
|
|
11/21/2015, 13:16
|
#3
|
elite*gold: 0
Join Date: Jan 2010
Posts: 2,709
Received Thanks: 426
|
Quote:
Originally Posted by elmarcia
First this is wrong:
Run("C:\Programme\Mozilla Firefox\firefox;exe") ";" LOL
Second:
Do
Send("http://url/9000s"&$count)
$count = $count + 1
Until $count > 500000
Using this will send continuous keys inputs to nowhere.
A better solution will be...
if u want to use firefox then there is an udf that u can use, here is a link to it:
|
what is #cs ?
hm i copy&paste your code but still not working
|
|
|
|
|
11/21/2015, 13:21
|
#4
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Quote:
Originally Posted by WickeT™?
what is #cs ? |
#cs is an abbreviation for #comments-start and the opposite is #ce which is an abbreviation for #comments-end.
It basically comments everything in between so you don't have to write a semicolon in every line.
|
|
|
|
|
11/21/2015, 13:27
|
#5
|
elite*gold: 0
Join Date: Jan 2010
Posts: 2,709
Received Thanks: 426
|
Quote:
Originally Posted by alpines
#cs is an abbreviation for #comments-start and the opposite is #ce which is an abbreviation for #comments-end.
It basically comments everything in between so you don't have to write a semicolon in every line.
|
also ist das "nicht aktiviert" ? sry bin echt ein newfag beim coden bzw. autoit
|
|
|
|
|
11/21/2015, 13:58
|
#6
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Es wird nicht mitcompiled weil es eben auskommentiert ist.
|
|
|
|
|
11/21/2015, 15:40
|
#7
|
elite*gold: 0
Join Date: Jan 2010
Posts: 2,709
Received Thanks: 426
|
Quote:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Erfan\Desktop\Form1.kxf
$Form1 = GUICreate("LightShot -Random Pic Finder", 336, 220, 302, 218)
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 153)
$Image1 = GUICtrlCreatePic("C:\Users\Erfan\Desktop\LlRAv4u5a ZFonMjkDWzAKa_4.jpg", 16, 24, 105, 97)
$Label1 = GUICtrlCreateLabel("name", 152, 24, 145, 17)
$Label2 = GUICtrlCreateLabel("Version 1.0", 152, 48, 57, 17)
$Label3 = GUICtrlCreateLabel("Copyright by Wigged oder SNEG0RR #clean#aqualegende ", 16, 136, 289, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("&Nächstes Bild", 108, 176, 115, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;If Not ProcessExists("firefox.exe") Then Run("C:\Programme\Mozilla Firefox\firefox.exe") ;check if not running or so...
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
$count = 1
While Sleep(20)
$msg = GUIGetMsg()
Switch $msg
Case -3 ;close event
ExitLoop
Case $Button1
newUrl()
EndSwitch
WEnd
_GDIPlus_Shutdown()
Func newUrl()
;$url = "http://url/9000s"&$count
$url = "http://prntscr.com/9000s" ;just an example...
$imgBinary = InetRead($url,8);Load image from url into memory
$bitmap = _GDIPlus_BitmapCreateFromMemory($imgBinary);Create s a bitmap with that image source
_GDIPlus_GraphicsDrawImageRect($hGraphic,$bitmap,1 6, 24, 105, 97);Draws the image into our graphic
_GDIPlus_BitmapDispose($bitmap);release memory
$count += 1
EndFunc
#cs
Sleep(5000)
Do
Send("http://url/9000s"&$count)
$count = $count + 1
Until $count > 500000 ;what is thisssssss it will crash your computer dude haha
#ce
|
warum kommt dann der error :C
|
|
|
|
|
11/21/2015, 15:46
|
#8
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Starte das mal ohne zu compilen und schau dir den Fehler an, er wird dir dann zeigen wo der Fehler liegt.
|
|
|
|
|
11/21/2015, 19:53
|
#9
|
elite*gold: 0
Join Date: Apr 2011
Posts: 363
Received Thanks: 166
|
execute with f5 your script then press f4 to locate the error in the console, solve it then compile.
|
|
|
|
|
11/23/2015, 17:13
|
#10
|
elite*gold: 0
Join Date: Jan 2010
Posts: 2,709
Received Thanks: 426
|
klappt nicht it doesnt work. The guy who can help me will get some egold :c
|
|
|
|
|
11/23/2015, 20:28
|
#11
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Poste mal den Source den du genommen hast und dann sehen wir weiter.
|
|
|
|
|
11/23/2015, 20:36
|
#12
|
elite*gold: 0
Join Date: Jan 2010
Posts: 2,709
Received Thanks: 426
|
Quote:
Originally Posted by alpines
Poste mal den Source den du genommen hast und dann sehen wir weiter.
|
bitte :x
Quote:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Erfan\Desktop\Form1.kxf
$Form1 = GUICreate("LightShot -Random Pic Finder", 336, 220, 302, 218)
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 153)
$Image1 = GUICtrlCreatePic("C:\Users\Erfan\Desktop\LlRAv4u5a ZFonMjkDWzAKa_4.jpg", 16, 24, 105, 97)
$Label1 = GUICtrlCreateLabel("name", 152, 24, 145, 17)
$Label2 = GUICtrlCreateLabel("Version 1.0", 152, 48, 57, 17)
$Label3 = GUICtrlCreateLabel("Copyright by Wigged oder SNEG0RR #clean#aqualegende ", 16, 136, 289, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("&Nächstes Bild", 108, 176, 115, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;If Not ProcessExists("firefox.exe") Then Run("C:\Programme\Mozilla Firefox\firefox.exe") ;check if not running or so...
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
$count = 1
While Sleep(20)
$msg = GUIGetMsg()
Switch $msg
Case -3 ;close event
ExitLoop
Case $Button1
newUrl()
EndSwitch
WEnd
_GDIPlus_Shutdown()
Func newUrl()
;$url = "http://prntscr.com/9000s"&$count
$url = "http://prntscr.com/9000s" ;just an example...
$imgBinary = InetRead($url,8);Load image from url into memory
$bitmap = _GDIPlus_BitmapCreateFromMemory($imgBinary);Create s a bitmap with that image source
_GDIPlus_GraphicsDrawImageRect($hGraphic,$bitmap,1 6, 24, 105, 97);Draws the image into our graphic
_GDIPlus_BitmapDispose($bitmap);release memory
$count += 1
EndFunc
|
|
|
|
|
|
11/23/2015, 20:42
|
#13
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Das Problem liegt in der newUrl()-Funktion. Der Parameter "1 6" ist falsch, da darf kein Leerzeichen dazwischen sein. Und das ganze ohne SciTE und AutoIt gefunden.
|
|
|
|
|
11/23/2015, 21:11
|
#14
|
elite*gold: 0
Join Date: Jan 2010
Posts: 2,709
Received Thanks: 426
|
Quote:
Originally Posted by alpines
Das Problem liegt in der newUrl()-Funktion. Der Parameter "1 6" ist falsch, da darf kein Leerzeichen dazwischen sein. Und das ganze ohne SciTE und AutoIt gefunden.
|
hab ich geändert , trotzdem geht er nicht :c es passiert auch nichts
|
|
|
|
|
11/23/2015, 22:27
|
#15
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Quote:
Originally Posted by WickeT™?
hab ich geändert , trotzdem geht er nicht :c es passiert auch nichts
|
Anderer Fehler? Wo wird der Fehler jetzt angezeigt?
|
|
|
|
 |
|
Similar Threads
|
[VERGEBE] e*G [Suche] eine Zahl
07/05/2013 - elite*gold Trading - 7 Replies
Richtig gesehen, ich suche Witze!
Da ich jetzt was biete und suche ist das doch die richtige Sektion?
Los Leute, macht mit, gute Chancen !!
http://www.elitepvpers.com/forum/freebies/2702596 -verlose-e-g-gute-chancen.html
|
Skript, welches immer eine Zahl höher sendet
03/07/2012 - AutoIt - 8 Replies
Ich versuche es so zu machen, dass ein Wort gesendet wird, z.B Baum und dann eine Zahl. Die Zahl soll immer ein höher gehen pro Durchgang und die Spannweite der Zahlen sollte man auch definieren können. Wie stelle ich das am besten an?
Mfg. 123klo
|
Verlose 1x 30E*G Suche Eine Zahl zwischen 1-25
07/03/2011 - elite*gold Trading - 8 Replies
Topic^^
dann ratet mal!
Thanks werden gerne gesehen
|
[Aufklärung] Warum 1337 Eine besondere Zahl ist
11/02/2010 - Off Topic - 22 Replies
Leetspeak (auch Leetspeek; von engl. elite, „Elite“) bezeichnet das Ersetzen von Buchstaben durch ähnlich aussehende Ziffern sowie – nach einer erweiterten Definition – Sonderzeichen. So wird der Begriff Leetspeak selbst häufig 1337, manchmal 1337 5P34K, selten auch 31337 bzw. 313373 geschrieben.
Häufige Verwendung: Eine 1 sieht wie ein kleines L oder I aus, 3 ist das Spiegelbild eines E, und eine 7 ist ein etwas deformiertes T. Unter der 0 kann man sich ein großes O vorstellen. Aus einer 4...
|
[S] Befehl mit dem man eine hohe zahl würfelt.
04/28/2008 - World of Warcraft - 8 Replies
In letzer Zeit wird mir alles weggerollt daher wollt ich nach nem Befehl fragen (hab an /script.....) gedacht mit dem man eine beliebige Zahl würfelt. Irgendwelche programme wären auch ok wenn sie ud sind.
Wär sehr froh wenn ihr mir da helfen könntet. Auch per PN falls ihr es nicht frei zugänglich machen wollt, würds für mich behalten.
|
All times are GMT +2. The time now is 00:22.
|
|
