Beiträge von Kev

Kev

hm

dann hab ich halt den ts 193.192.59.26:2000 genomm, genau das gleiche, telnet sagt :"nö, will ich net"

auf dem ts drauf, bin ich trotzdem iwas stimmt da net

//edit

kann des vill daran liegen das der ts mitm pw geschützt ist?

Kev

hm thx, ich würd mir das ja genauer anschauen, aber die angegebene hp ist offline.

Zitat

Die Files findet ihr unter:
http://rootz-network.de/autoit

&

Zitat

Hi,

$socket = TCPConnect(GUICtrlRead ($iP),GUICtrlRead ($Port))

;-))
Stefan

same problem

trotzdem thx

Kev

Heyhoo,

also ich versuchn tS³ server via. tcpconnect voerst nur abzufragen.
aber egal was ich mache ich krieg imma n fail

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit][autoit][/autoit][autoit]

AutoIt Version: 3.3.4.0
Author: myName

[/autoit][autoit][/autoit][autoit]

Script Function:
Template AutoIt script.

[/autoit][autoit][/autoit][autoit]

#ce ----------------------------------------------------------------------------

[/autoit][autoit][/autoit][autoit]

; Script Start - Add your code below here

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <test.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

GUICreate("test", 250, 200)
GuicTrlcreatelabel("Server IP Adress:",10,45,120,25)
$IP = GUICtrlCreateInput("",100,40,120,25)
GuicTrlcreatelabel("Server Port:",10,75,120,25)
$Port = GUICtrlCreateInput("",100,70,120,25)
$Button1 = GUICtrlCreateButton("Connect",100,135,80,25)
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
TCPStartup()
$socket = TCPConnect($iP,$Port)
if $socket = -1 then
msgbox(1,"fail","fail")
else
MsgBox(1,"erfolg","erfolg")
EndIf
Exit
EndSwitch
Wend

[/autoit]

geht sowas überhaupt mitm ts?!?!

als TS könnter nehmen: $IP:193.192.59.26 $Port:9987

gruß

kev

Kev

erledigt^^

Kev

$Flash.Movie = @Scriptdir & "\DataSnaX\loader.swf?mainfile=C:\main.swf"

wie geb ichn das denne richtig an?

Kev

hab doch gesagt :

loader.swf
main.swf
und image1.bmp dann nach C:/ kopieren

________________________________________

und das oO stimmt mainfile feht das Data :o

thx

Kev

//update

data angehängt

* Link rausgenomm*
, alles mitbei...

loader.swf
main.swf
und image1.bmp dann nach C:/ kopieren

Kev

Hey,

Mein Scriptchen ist soweit fertig.
Jetzt wird bei Win 7/ Vista mein Flash nicht animiert.Das heißt es sieht aus wie ein stehendes Bild.
Flash Player ist installiert.
Auf win XP funktioniert das ganze zu 100 %

Wie krieg ichn das behoben

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Code:

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit][autoit][/autoit][autoit]

AutoIt Version: 3.3.4.0
Author: ...

[/autoit][autoit][/autoit][autoit]

Script Function:
...

[/autoit][autoit][/autoit][autoit]

#ce ----------------------------------------------------------------------------

[/autoit][autoit][/autoit][autoit]

; Script Start - Add your code below here

[/autoit][autoit][/autoit][autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUICtrlSetOnHover_UDF.au3>

[/autoit][autoit][/autoit][autoit]

Dircreate(@scriptdir & "\DataSnax\")
FileInstall("C:\Data\rgt.bmp", @scriptdir & "\DataSnaX\rgt.bmp")
FileInstall("C:\Data\rg.bmp", @scriptdir & "\DataSnaX\rg.bmp")
FileInstall("C:\Data\art.bmp", @scriptdir & "\DataSnaX\art.bmp")
FileInstall("C:\Data\ar.bmp", @scriptdir & "\DataSnaX\ar.bmp")
FileInstall("C:\Data\ret.bmp", @scriptdir & "\DataSnaX\ret.bmp")
FileInstall("C:\Data\re.bmp", @scriptdir & "\DataSnaX\re.bmp")
FileInstall("C:\Data\cat.bmp", @scriptdir & "\DataSnaX\cat.bmp")
FileInstall("C:\Data\ca.bmp", @scriptdir & "\DataSnaX\ca.bmp")
FileInstall("C:\Data\wot.bmp", @scriptdir & "\DataSnaX\wot.bmp")
FileInstall("C:\Data\wo.bmp", @scriptdir & "\DataSnaX\wo.bmp")
FileInstall("C:\Data\bet.bmp", @scriptdir & "\DataSnaX\bet.bmp")
FileInstall("C:\Data\be.bmp", @scriptdir & "\DataSnaX\be.bmp")
FileInstall("C:\Data\set.bmp", @scriptdir & "\DataSnaX\set.bmp")
FileInstall("C:\main.swf",@scriptdir & "\DataSnaX\main.swf")
FileInstall("C:\loader.swf",@scriptdir & "\DataSnaX\loader.swf")
FileInstall("C:\image1.bmp",@scriptdir & "\DataSnaX\image1.bmp")
FileInstall("C:\Data\down.bmp", @scriptdir & "\DataSnaX\down.bmp")
FileInstall("C:\Data\up.bmp", @scriptdir & "\DataSnaX\up.bmp")
FileInstall("C:\Data\pve.bmp", @scriptdir & "\DataSnaX\pve.bmp")
FileInstall("C:\Data\pvp.bmp", @scriptdir & "\DataSnaX\pvp.bmp")

[/autoit][autoit][/autoit][autoit]

Global $std_Hover_Image = @ScriptDir & "\DataSnaX\rgt.bmp"
Global $sBack_Hover_Image = @ScriptDir & "\DataSnaX\rg.bmp"
Global $std_Hover_Image2 = @ScriptDir & "\DataSnaX\art.bmp"
Global $sBack_Hover_Image2 = @ScriptDir & "\DataSnaX\ar.bmp"
Global $std_Hover_Image3 = @ScriptDir & "\DataSnaX\ret.bmp"
Global $sBack_Hover_Image3 = @ScriptDir & "\DataSnaX\re.bmp"
Global $std_Hover_Image4 = @ScriptDir & "\DataSnaX\cat.bmp"
Global $sBack_Hover_Image4 = @ScriptDir & "\DataSnaX\ca.bmp"
Global $std_Hover_Image5 = @ScriptDir & "\DataSnaX\wot.bmp"
Global $sBack_Hover_Image5 = @ScriptDir & "\DataSnaX\wo.bmp"
Global $std_Hover_Image6 = @ScriptDir & "\DataSnaX\bet.bmp"
Global $sBack_Hover_Image6 = @ScriptDir & "\DataSnaX\be.bmp"
Global $std_Hover_Image7 = @ScriptDir & "\DataSnaX\set.bmp"
Global $sBack_Hover_Image7 = @ScriptDir & "\DataSnaX\set.bmp"
Global $std_Hover_Image8 = @ScriptDir & "\DataSnaX\pvp.bmp"
Global $sBack_Hover_Image8 = @ScriptDir & "\DataSnaX\pvp.bmp"
Global $std_Hover_Image9 = @ScriptDir & "\DataSnaX\pve.bmp"
Global $sBack_Hover_Image9 = @ScriptDir & "\DataSnaX\pve.bmp"

[/autoit][autoit][/autoit][autoit]

GUICreate("Test", 600, 400)
$Flash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$FlashObj = GUICtrlCreateObj($Flash, 350, 0, 250, 490)
$Flash.Movie = @Scriptdir & "\DataSnaX\loader.swf?mainfile=C:\main.swf"
$Flash.loop = true
$pic = GUICtrlCreatePic(@scriptdir & "\DataSnax\image1.bmp",0,-27,350,530,0)
GUICtrlSetSTate($pic,$GUI_DISABLE)
$button = GUICtrlCreateButton("test", 30, 160, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button2 = GUICtrlCreateButton("test2", 30, 200, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image2)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button3 = GUICtrlCreateButton("test3", 30, 240, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image3)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button4= GUICtrlCreateButton("test4", 30, 280, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image4)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button5= GUICtrlCreateButton("test5", 30, 320, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image5)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button6= GUICtrlCreateButton("test6", 30, 360, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image6)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button7= GUICtrlCreateButton("test7", 180, 180, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image7)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button8= GUICtrlCreateButton("test8", 220, 215, 60, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image8)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button9= GUICtrlCreateButton("test9", 220, 280, 60, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image9)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")

[/autoit][autoit][/autoit][autoit]

TCPStartup() ; TCP wird initialisiert

[/autoit][autoit][/autoit][autoit]

$socket = TCPConnect("94.23.33.162", 8085)
If $socket = -1 Then
GUICtrlCreatePic(@Scriptdir & "\DataSnax\down.bmp",240,250,20,20)
Else
$Pic2 = GUICtrlCreatePic(@Scriptdir & "\DataSnax\up.bmp",240,250,20,20)
EndIf

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

TCPStartup() ; TCP wird initialisiert

[/autoit][autoit][/autoit][autoit]

$socket = TCPConnect("94.23.6.9", 8090)
If $socket = -1 Then
GUICtrlCreatePic(@Scriptdir & "\DataSnax\down.bmp",240,315,20,20)
Else
$Pic2 = GUICtrlCreatePic(@Scriptdir & "\DataSnax\up.bmp",240,315,20,20)
EndIf
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button
ShellExecute("http://www.rising-gods.de")
case $button2
ShellExecute("http://arsenal.rising-gods.de")
case $button3
run("notepad.exe " & "" & @scriptdir & "\Data\deDE\realmlist.wtf")
case $button4
DirRemove(@scriptdir & "\Cache\",1)
if True then
msgbox(4096,"Status","Cache erfolgreich gelöscht")
if False then
msgbox(4096,"Status","Error - Falsches Verzeichnis?")
EndIf
EndIf
case $button5
ShellExecute(@ScriptDir & "\wow.exe")
case $Button6
exit
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _Hover_Image_Proc($iCtrlID, $iParam)
Local $picbutton1 = $sBack_Hover_Image
Local $picbutton2 = $sBack_Hover_Image2
Local $picbutton3 = $sBack_Hover_Image3
Local $picbutton4 = $sBack_Hover_Image4
Local $picbutton5 = $sBack_Hover_Image5
Local $picbutton6 = $sBack_Hover_Image6
Local $picbutton7 = $sBack_Hover_Image7
Local $picbutton8 = $sBack_Hover_Image8
Local $picbutton9 = $sBack_Hover_Image9
If $iParam = 2 Then
$picbutton1 = $std_Hover_Image
$picbutton2 = $std_Hover_Image2
$picbutton3 = $std_Hover_Image3
$picbutton4 = $std_Hover_Image4
$picbutton5 = $std_Hover_Image5
$picbutton6 = $std_Hover_Image6
$picbutton7 = $std_Hover_Image7
$picbutton8 = $std_Hover_Image8
$picbutton9 = $std_Hover_Image9

[/autoit][autoit][/autoit][autoit]

EndIf
Switch $iCtrlID
Case $button
GUICtrlSetImage($iCtrlID, $picbutton1)
Case $button2
GUICtrlSetImage($iCtrlID, $picbutton2)
Case $button3
GUICtrlSetImage($iCtrlID, $picbutton3)
Case $button4
GUICtrlSetImage($iCtrlID, $picbutton4)
Case $button5
GUICtrlSetImage($iCtrlID, $picbutton5)
Case $button6
GUICtrlSetImage($iCtrlID, $picbutton6)
Case $button7
GUICtrlSetImage($iCtrlID, $picbutton7)
Case $button8
GUICtrlSetImage($iCtrlID, $picbutton8)
Case $button9
GUICtrlSetImage($iCtrlID, $picbutton9)
EndSwitch
EndFunc

[/autoit]

Kev

xD

das soweit fertig

bis zum nächsten script xD

Kev

funzt, danke

Kev

das geht soweit, aber immernoch das gleiche anfangsproblem
hatt sich nichts geändert.

Kev

das $pic2 hab ich nur so aus test ma geändert, passiet das gleiche

Kev

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit][autoit][/autoit][autoit]

AutoIt Version: 3.3.4.0
Author: myName

[/autoit][autoit][/autoit][autoit]

Script Function:
Template AutoIt script.

[/autoit][autoit][/autoit][autoit]

#ce ----------------------------------------------------------------------------

[/autoit][autoit][/autoit][autoit]

; Script Start - Add your code below here

[/autoit][autoit][/autoit][autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUICtrlSetOnHover_UDF.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Global $std_Hover_Image = @ScriptDir & "\rgt.bmp"
Global $sBack_Hover_Image = @ScriptDir & "\rg.bmp"
Global $std_Hover_Image2 = @ScriptDir & "\art.bmp"
Global $sBack_Hover_Image2 = @ScriptDir & "\ar.bmp"
Global $std_Hover_Image3 = @ScriptDir & "\ret.bmp"
Global $sBack_Hover_Image3 = @ScriptDir & "\re.bmp"
Global $std_Hover_Image4 = @ScriptDir & "\cat.bmp"
Global $sBack_Hover_Image4 = @ScriptDir & "\ca.bmp"
Global $std_Hover_Image5 = @ScriptDir & "\wot.bmp"
Global $sBack_Hover_Image5 = @ScriptDir & "\wo.bmp"
Global $std_Hover_Image6 = @ScriptDir & "\bet.bmp"
Global $sBack_Hover_Image6 = @ScriptDir & "\be.bmp"
Global $std_Hover_Image7 = @ScriptDir & "\set.bmp"
Global $sBack_Hover_Image7 = @ScriptDir & "\set.bmp"

[/autoit][autoit][/autoit][autoit]

GUICreate("SnaX v.2.0.0 - by Anubiz ©2010", 600, 400)
$Flash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$FlashObj = GUICtrlCreateObj($Flash, 350, 0, 250, 490)
$Flash.Movie = "C:\loader.swf?mainfile=C:\main.swf"
$Flash.loop = true
GUISetState(@SW_SHOW)
$pic = GUICtrlCreatePic("C:\image1.bmp",0,-27,350,530,0)
GUICtrlSetSTate($pic,$GUI_DISABLE)
$button = GUICtrlCreateButton("test", 30, 160, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button2 = GUICtrlCreateButton("test2", 30, 200, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image2)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button3 = GUICtrlCreateButton("test3", 30, 240, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image3)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button4= GUICtrlCreateButton("test4", 30, 280, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image4)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button5= GUICtrlCreateButton("test5", 30, 320, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image5)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button6= GUICtrlCreateButton("test6", 30, 360, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image6)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button7= GUICtrlCreateButton("test7", 180, 220, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image7)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

If Ping("85.131.2037.229") Then ;
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\up.bmp",245,260,20,20); positionen und größe anpassen
Else
$Pic2 = GUICtrlCreatePic(@Scriptdir & "\down.bmp",245,260,20,20)); positionen und größe anpassen
EndIf
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button
ShellExecute("http://www.rising-gods.de")
case $button2
ShellExecute("http://arsenal.rising-gods.de")
case $button3
run("notepad.exe " & "" & @scriptdir & "\Data\deDE\realmlist.wtf")
case $button4
DirRemove(@scriptdir & "\Cache\",1)
if True then
msgbox(4096,"Status","Cache erfolgreich gelöscht")
if False then
msgbox(4096,"Status","Error - Falsches Verzeichnis?")
EndIf
EndIf
case $button5
ShellExecute(@ScriptDir & "\wow.exe")
case $Button6
exit
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _Hover_Image_Proc($iCtrlID, $iParam)
Local $picbutton1 = $sBack_Hover_Image
Local $picbutton2 = $sBack_Hover_Image2
Local $picbutton3 = $sBack_Hover_Image3
Local $picbutton4 = $sBack_Hover_Image4
Local $picbutton5 = $sBack_Hover_Image5
Local $picbutton6 = $sBack_Hover_Image6
Local $picbutton7 = $sBack_Hover_Image7
If $iParam = 2 Then
$picbutton1 = $std_Hover_Image
$picbutton2 = $std_Hover_Image2
$picbutton3 = $std_Hover_Image3
$picbutton4 = $std_Hover_Image4
$picbutton5 = $std_Hover_Image5
$picbutton6 = $std_Hover_Image6
$picbutton7 = $std_Hover_Image7

[/autoit][autoit][/autoit][autoit]

EndIf
Switch $iCtrlID
Case $button
GUICtrlSetImage($iCtrlID, $picbutton1)
Case $button2
GUICtrlSetImage($iCtrlID, $picbutton2)
Case $button3
GUICtrlSetImage($iCtrlID, $picbutton3)
Case $button4
GUICtrlSetImage($iCtrlID, $picbutton4)
Case $button5
GUICtrlSetImage($iCtrlID, $picbutton5)
Case $button6
GUICtrlSetImage($iCtrlID, $picbutton6)
Case $button7
GUICtrlSetImage($iCtrlID, $picbutton7)
Case $button8
GUICtrlSetImage($iCtrlID, $picbutton8
Case $button9
GUICtrlSetImage($iCtrlID, $picbutton9)
EndSwitch
EndFunc

[/autoit]

Kev

Line69
$Pic2= ^Error

Unbalanced brackets in expression

Kev

wenn ichn extra gui erstelle dann gibs auchn extra gui, sprich 2tes fenster.
mein fehler^^

wie bau ichn das ding jetzt bei mir ein?
weil wenn ich das jetzt übernehme ohne den gui...

[autoit]

If Ping("85.131.2037.229") Then ;
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\up.bmp", 40, 40, 20, 20)
Else
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\down.bmp", 40, 40, 20, 20)
EndIf
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit]

dann hab ich immernoch das gleiche problem.

wenn ichs mit deinem gui übernehme:

[autoit]

#include <GUIConstantsEx.au3>

[/autoit][autoit][/autoit][autoit]

$Form1 = GUICreate("", 200, 200)

[/autoit][autoit][/autoit][autoit]

If Ping("85.131.2037.229") Then ;
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\up.bmp", 40, 40, 20, 20)
Else
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\down.bmp", 40, 40, 20, 20)
EndIf
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit]

geht das wunderbar

Kev

Greenhorn

jetz muss ich die position vom Gui ändern.
sprich des Fenster nehmen und statt minimieren einmal nach recht oder links bewegen..^^
is schonmal n fortschritt...

Schnitzel

jetz hab ich ja n extra fenster? oO
bringt au nix

Kev

still the same problem :x

Kev

jetz lass ihn doch mal selbst denken

Kev

@anhang

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Kev

Hey,

habe folgendes problem.
mache ne serverabfrage und der status soll mir dann per pic angezeigt werden.
funktioniert soweit auch, aber das bild wird nicht angezeigt.
erst wenn ich das fenster minimier und wieder maximiere wird es richtig angezeigt, voher ist da nichts.

Die Abfrage ist:

Spoiler anzeigen

[autoit]

$rueck = ping("85.131.2037.229")
if $rueck then
GuicTRlcreatepic("up.bmp",245,260,20,20)
else
GuicTRlcreatepic("down.bmp",245,260,20,20)
Endif

[/autoit]

Full Script:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.4.0
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUICtrlSetOnHover_UDF.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $std_Hover_Image = @ScriptDir & "\rgt.bmp"
Global $sBack_Hover_Image = @ScriptDir & "\rg.bmp"
Global $std_Hover_Image2 = @ScriptDir & "\art.bmp"
Global $sBack_Hover_Image2 = @ScriptDir & "\ar.bmp"
Global $std_Hover_Image3 = @ScriptDir & "\ret.bmp"
Global $sBack_Hover_Image3 = @ScriptDir & "\re.bmp"
Global $std_Hover_Image4 = @ScriptDir & "\cat.bmp"
Global $sBack_Hover_Image4 = @ScriptDir & "\ca.bmp"
Global $std_Hover_Image5 = @ScriptDir & "\wot.bmp"
Global $sBack_Hover_Image5 = @ScriptDir & "\wo.bmp"
Global $std_Hover_Image6 = @ScriptDir & "\bet.bmp"
Global $sBack_Hover_Image6 = @ScriptDir & "\be.bmp"
Global $std_Hover_Image7 = @ScriptDir & "\set.bmp"
Global $sBack_Hover_Image7 = @ScriptDir & "\set.bmp"

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Test", 600, 400)
$Flash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$FlashObj = GUICtrlCreateObj($Flash, 350, 0, 250, 490)
$Flash.Movie = "C:\loader.swf?mainfile=C:\main.swf"
$Flash.loop = true
GUISetState(@SW_SHOW)
$pic = GUICtrlCreatePic("C:\image1.bmp",0,-27,350,530,0)
GUICtrlSetSTate($pic,$GUI_DISABLE)
$button = GUICtrlCreateButton("test", 30, 160, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button2 = GUICtrlCreateButton("test2", 30, 200, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image2)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button3 = GUICtrlCreateButton("test3", 30, 240, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image3)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button4= GUICtrlCreateButton("test4", 30, 280, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image4)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button5= GUICtrlCreateButton("test5", 30, 320, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image5)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button6= GUICtrlCreateButton("test6", 30, 360, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image6)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button7= GUICtrlCreateButton("test7", 180, 220, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image7)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$rueck = ping("85.131.2037.229")
if $rueck then
GuicTRlcreatepic("up.bmp",245,260,20,20)
else
GuicTRlcreatepic("down.bmp",245,260,20,20)
Endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button
ShellExecute("http://www.rising-gods.de")
case $button2
ShellExecute("http://arsenal.rising-gods.de")
case $button3
run("notepad.exe " & "" & @scriptdir & "\Data\deDE\realmlist.wtf")
case $button4
DirRemove(@scriptdir & "\Cache\",1)
if True then
msgbox(4096,"Status","Cache erfolgreich gelöscht")
if False then
msgbox(4096,"Status","Error - Falsches Verzeichnis?")
EndIf
EndIf
case $button5
ShellExecute(@ScriptDir & "\wow.exe")
case $Button6
exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Hover_Image_Proc($iCtrlID, $iParam)
Local $picbutton1 = $sBack_Hover_Image
Local $picbutton2 = $sBack_Hover_Image2
Local $picbutton3 = $sBack_Hover_Image3
Local $picbutton4 = $sBack_Hover_Image4
Local $picbutton5 = $sBack_Hover_Image5
Local $picbutton6 = $sBack_Hover_Image6
Local $picbutton7 = $sBack_Hover_Image7
If $iParam = 2 Then
$picbutton1 = $std_Hover_Image
$picbutton2 = $std_Hover_Image2
$picbutton3 = $std_Hover_Image3
$picbutton4 = $std_Hover_Image4
$picbutton5 = $std_Hover_Image5
$picbutton6 = $std_Hover_Image6
$picbutton7 = $std_Hover_Image7

[/autoit] [autoit][/autoit] [autoit]

EndIf
Switch $iCtrlID
Case $button
GUICtrlSetImage($iCtrlID, $picbutton1)
Case $button2
GUICtrlSetImage($iCtrlID, $picbutton2)
Case $button3
GUICtrlSetImage($iCtrlID, $picbutton3)
Case $button4
GUICtrlSetImage($iCtrlID, $picbutton4)
Case $button5
GUICtrlSetImage($iCtrlID, $picbutton5)
Case $button6
GUICtrlSetImage($iCtrlID, $picbutton6)
Case $button7
GUICtrlSetImage($iCtrlID, $picbutton7)
Case $button8
GUICtrlSetImage($iCtrlID, $picbutton8
Case $button9
GUICtrlSetImage($iCtrlID, $picbutton9)
EndSwitch
EndFunc

[/autoit]

Beiträge von Kev

TCP Connect, TS?

TCP Connect, TS?

TCP Connect, TS?

Gui Flash und Bild

Gui Flash und Bild

Gui Flash und Bild

Gui Flash und Bild

Gui Flash und Bild

Guictrlcreatepic problem...

Guictrlcreatepic problem...

Guictrlcreatepic problem...

Guictrlcreatepic problem...

Guictrlcreatepic problem...

Guictrlcreatepic problem...

Guictrlcreatepic problem...

Guictrlcreatepic problem...

Guictrlcreatepic problem...

Zahl senden

Guictrlcreatepic problem...

Guictrlcreatepic problem...