Zahl +1 an eine URL hängen

[sNEG0R]

Originally Posted by alpines

Anderer Fehler? Wo wird der Fehler jetzt angezeigt?

Es wird kein Fehler direkt gezeigt , jedoch passiert nicht das was ich wollte

Er soll wenn man auf nächstes Bild geht auf die seite prntscr.com/9000s gehen und am ende einfach ne 1 hinzufügen. Beim nächsten mal dann ne 2 und so weiter . Aber das passiert nicht :c

[alpines]

Derbe schlecht formatiert aber funktioniert:

#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" & $count ;just an example...
$srcHTML = BinaryToString(InetRead($url, 1));Load image from url into memory
FileWrite("test.html", $srcHTML)
$a = StringRegExp($srcHTML, "(http:\/\/i\.imgur\.com\/.+?\.png)", 3)

If UBound($a) Then
	MsgBox(0,0,$a[0])
	InetGet($a[0], @ScriptDir & "\tmp_img.png", 1)
EndIf
$bitmap = _GDIPlus_BitmapCreateFromFile(@scriptdir & "\tmp_img.png");Create s a bitmap with that image source
_GDIPlus_GraphicsDrawImageRect($hGraphic,$bitmap,16, 24, 105, 97);Draws the image into our graphic
_GDIPlus_BitmapDispose($bitmap);release memory
$count += 1
EndFunc

[sNEG0R]

Originally Posted by alpines

Derbe schlecht formatiert aber funktioniert:

#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" & $count ;just an example...
$srcHTML = BinaryToString(InetRead($url, 1));Load image from url into memory
FileWrite("test.html", $srcHTML)
$a = StringRegExp($srcHTML, "(http:\/\/i\.imgur\.com\/.+?\.png)", 3)

If UBound($a) Then
	MsgBox(0,0,$a[0])
	InetGet($a[0], @ScriptDir & "\tmp_img.png", 1)
EndIf
$bitmap = _GDIPlus_BitmapCreateFromFile(@scriptdir & "\tmp_img.png");Create s a bitmap with that image source
_GDIPlus_GraphicsDrawImageRect($hGraphic,$bitmap,16, 24, 105, 97);Draws the image into our graphic
_GDIPlus_BitmapDispose($bitmap);release memory
$count += 1
EndFunc

kannst du mir nochmal sagen wie ich die Box wegbekomme die beim klicken kommt ?

nach einem bestimmten bild verändert sich auch nicht mehr der link warum ?

[alpines]

Anscheinend verstehst du nicht mal die grundlegensten Grundlagen wenn du nicht verstehst warum da eine MsgBox kommt. Wenn du ein Tool geschrieben haben willst geh in den 'Requests Sticky' oder in Coders Trading.

Prüf doch selber nach warum das nicht mehr (im Browser).

[sNEG0R]

Originally Posted by alpines

Anscheinend verstehst du nicht mal die grundlegensten Grundlagen wenn du nicht verstehst warum da eine MsgBox kommt. Wenn du ein Tool geschrieben haben willst geh in den 'Requests Sticky' oder in Coders Trading.

Prüf doch selber nach warum das nicht mehr (im Browser).

verstehe ich schon. Jedoch war meine frage falsch ausgedrückt , warum steht da scriptdir ?

[Devsome]

Originally Posted by WickeT™?

verstehe ich schon. Jedoch war meine frage falsch ausgedrückt , warum steht da scriptdir ?

@ScriptDir

sind Variablen wo bestimme Sachen mit definiert sind.
In diesem Fall gibt @ScriptDir dir den Pfad wieder wo sich dein Script befindet.
Hier sind weitere @Variablen =>