Beiträge von slash

Hi leute ich wollte mal fragen ob mir jmd ein fenster machen kann wo diese internet seite angezeigt wird +

https://autoit.de/www.webmasterparadies.net

das ist mein jetziges script aber beim kumpel wirds nicht angezeigt.

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
GLobal $Homepage = ("www.webmasterparadies.net")

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

$WebBrowserGUI = GUICreate("Wmp Web Browser", 1274, 800, 0, -1, $WS_OVERLAPPEDWINDOW)
GUISetBkColor(0x000000)
$IE = ObjCreate("Shell.Explorer.2")
$IEObject = GUICtrlCreateObj($IE, 0, 0, 1274, 979)
GUISetState(@SW_SHOW)
$IE.Navigate($Homepage)
While 1
WinSetTitle($WebBrowserGUI, "", "Wmp Web Browser | "&$IE.LocationURL()&"")
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

Mhh ok Benutzer nicht gerade aber ich werde dann ma rumschauen ob ich was finde aber thx für die antwort.

Hallo Leute/Coder,

Ich habe eine frage und zwar, ist es möglich mit Autoit einen Ordner mit Passwort zu versehen?
Da ich dateien habe die nicht jeder von meiner Fam. sehen soll...
Angefangen mit dem Script habe ich noch nicht da ich nicht weis wie oder wo ich anfangen soll..

Hoffe um eure Hilfe.

ich habe das genommen:

ShellExecute("Explorer", @MyDocumentsDir)
ControlSetText("Eigene Dateien", "", "[CLASS:Edit; INSTANCE:1]", "c:\")
ControlSend("Eigene Dateien", "", "[CLASS:Edit; INSTANCE:1]", @CR)

Ok funtzt einwandfrei! THX!

Achsooo kann man das nicht gleich mit einbauen das er das öffnet?

mhh iwie geht das nicht!

ich habe das getestet:

[autoit]

ControlSetText("Eigene Dateien", "", "[CLASS:Edit; INSTANCE:1]", "ftp://XXX:XXX@XXX.net")

[/autoit]

Und wie kann ich dann in die adress leiste rein schreiben also mit dem befehl?

Hi leute, ich habe mal wieder ein problem!

Und zwar, jeder von euch kennt doch bestimmt die adress leiste im ordner zb eigene dateien etc da is ne adress leiste...
Gibt es eine möglichkeit mit autoit etwas in die adress leiste zu schreiben??

Naja Danke im vorraus!

und wie würde es dann nach rechts aussehen?

[autoit]

Func _right()
For $right = 175 To 391 Step -5
GUICtrlSetPos($pic, $right, 230 )
sleep(1)
Next
For $right = 391 To 175 Step 5
GUICtrlSetPos($pic, $right, 230)
Sleep(2)
Next
Endfunc

[/autoit]

Sooo?

Hi leute nachdem ich bis jetz ja tüchtig hilfe von euch bekommen habe, brauch ich nun wieder tüchtig hilfe von euch^^

und zwar kann man das iwie machen das wenn man nach rechts drückt dass, das bild sich dann nach rechts bewegt und wenn man nach links drückt sich das bild nach links bewegt... möchte ein kleines spiel machen^^... habe nur hinbekommen dass, das bild sich nach oben bewegt^^

hier mein code...

[autoit]

#include <GUIConstants.au3>

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

HotKeySet("{left}","_left")
HotKeySet("{right}","_right")

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 392, 280, 285, 206)
GUISetState(@SW_SHOW)
$pic = GUICtrlCreatePic("f.bmp",175,230,36,43)
#EndRegion ### END Koda GUI section ###

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

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

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

EndSwitch
WEnd

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

Func _left()
For $left = 230 To 1 Step -5
GUICtrlSetPos($pic, 175, $left)
sleep(1)
Next
For $left = 1 To 230 Step 5
GUICtrlSetPos($pic, 175, $left)
Sleep(2)
Next
EndFunc

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

Func _right()
For $left = 230 To 1 Step -5
GUICtrlSetPos($pic, 175, $left)
sleep(1)
Next
For $left = 1 To 230 Step 5
GUICtrlSetPos($pic, 175, $left)
Sleep(2)
Next
EndFunc

[/autoit]

ja ne der muss ja erst installen dann kann man starten^^

Hi leute ich versuche die ganze zeit eine exe zu starten aber es geht nicht...

Also ich wollte es so machen wenn man button 1 klickt startet die exe wenn man button 2 klickt ne andere usw^^

und kann man villt so machen das wenn man button 1 gestartet hat, und man gleichzeitig button 2 starten will, das dann ein fenster kommt wo dran steht bitte warte bis button 1 fertig ist.

Hier mein Code: ( die exen die er starten soll hab ich auf rechner!! )

[autoit]

#include <GUIConstants.au3>
#include <Process.au3>

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

$Visit = "http://ps-evolution.in"

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

$render = FileInstall("J:\PROGRAMME\AUTOIT\Gfx Download\render.exe", @TempDir & "\render.exe")
$brush = FileInstall("J:\PROGRAMME\AUTOIT\Gfx Download\brush.exe", @TempDir & "\brush.exe")
$font = FileInstall("J:\PROGRAMME\AUTOIT\Gfx Download\font.exe", @TempDir & "\font.exe")
$ps = FileInstall("J:\PROGRAMME\AUTOIT\Gfx Download\ps.exe", @TempDir & "\ps.exe")

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;erstellt das Interface!
$Form1 = GUICreate("Gfx Pack", 202, 250, 400, 316)
GUISetBkColor(0x839ED4)
$Button1 = GUICtrlCreateButton("Download: Ultimate Render Pack", 8, 56, 185, 33, 0)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Download: Ultimate Brushes Pack", 8, 96, 185, 33, 0)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Download: Ultimate Font Pack", 8, 136, 185, 33, 0)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("Download: PhotoShop Portable", 8, 176, 185, 33, 0)
GUICtrlSetCursor (-1, 0)
$Label1 = GUICtrlCreateLabel("::::::::: Ultimate Gfx Pack :::::::::", 24, 32, 149, 17)
$MenuItem1 = GUICtrlCreateMenu("Gfx Menü")
$MenuItem3 = GUICtrlCreateMenuItem("Ps-Evolution", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("About", $MenuItem1)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
MsgBox(64, "Über...", "Ultimate Gfx Pack" & @CRLF & "Version 1.0" & @CRLF & "" & @CRLF & "Copyright © 2008" & @CRLF & "By Slash & Hunger")
EndSwitch
If $nMsg = $MenuItem3 Then
_RunDOS("start " & $Visit)
EndIf
If $nMsg = $Button1 Then
Run($render)
EndIf
If $nMsg = $Button2 Then
Run($brush)
EndIf
If $nMsg = $Button3 Then
Run($font)
EndIf
If $nMsg = $Button4 Then
Run($ps)
EndIf
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[/autoit]

..... hammer ........ o0 ....... keine ahnung was ich nun sagen soll xD.... EXTREM HAMMER^^

würdest du mir villt dabei ein bischen helfen über icq oder so? weil ich ein paar andere grafiken nehmen wollte^^

wenn mir helfen möchtest hier meine icq nummer: 376721036

Hi leute kann man iwie einen text also ne txt in einer gui darstellen mit transparentem hintergrund?

ich habe es versucht mit einer editbox aber die kann man ja nicht transparent machen^^
weil ich nen kleinen launcher basteln möchte der news von einer txt darstellt aber mit dem dofen hintergrund der editbox is das öde^^

mein bisheriger quelltext is so:

[autoit]

#include <INet.au3>
#include <GUIConstants.au3>

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

Dim $Serverurl = "http://slash.5x.to/"
Dim $File = "test.txt"
$sText = _INetGetSource($Serverurl & $File)

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

$head = "head.BMP"
$bg = "bg.BMP"

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WoW Server Launcher", 381, 289, -1, -1)
GUISetBkColor(0xFFFFFF)
GUICtrlCreatePic($bg,0,0,381,289)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreatePic($head,0,0,381,31)
$Edit1 = GUICtrlCreateEdit("", 5, 48, 377, 169, 0, 0)
GUICtrlSetData(-1, $sText)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("About", 8, 261, 65, 25, 0)
$Button2 = GUICtrlCreateButton("Visit", 80, 261, 65, 25, 0)
$Button3 = GUICtrlCreateButton("Start", 288, 245, 81, 41, 0)
$Button4 = GUICtrlCreateButton("Del Cache", 152, 261, 65, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

EndSwitch
WEnd

[/autoit]

Jop Thx Funtzt Super! Nur iwie fängt es erst ab ca 40 an schneller zu werden unter 40 merkt man nur nen seeeeeeehr kleinen unterschied^^

Ja hat mein Kumpel auch schon gesag... kann man es iwie unter Vista Laufen lassen?

LÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖLE! xD funtz einwandfrei xD THX!

Jo funtzt fast perfekt^^ nur ich wollte es so machen das bei null nix passiert und wenn man gegen 50 geht wird er immer schneller^^

Hi leute, wie kann ich zb wenn ich bei nem object sleep 50 habe, durch nen slider das sleep runterschrauben?

Also Object hat 50 sleep
dann slider wenn man den bewegt geht es zb auf 40 usw hoffe ihr versteht es^^

hier der code:

[autoit]

#include "GlPluginUtils.au3"
#include <Misc.au3>
#include <GUIConstants.au3>
#include <GuiSlider.au3>

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

$logo = @ScriptDir & "\logo.bmp"
FileInstall("logo.bmp", $logo, 1)

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

; Create GUI
GUICreate("Slider", 232, 75, 447, 661)
$hSlider = GUICtrlCreateSlider(24, 24, 182, 29, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS, $TBS_ENABLESELRANGE))
GUICtrlSetLimit(-1, 50, 0)
GUISetState()

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

AutoItSetOption("TrayIconHide", 1)
$dll = DllOpen("user32.dll")
$Title = "3D Pic by Slash"
TextureSetBuffer(3)
TextureAdd("Logo", $logo)
TextureSetMode(0)
DefineGlWindow($Title, 250, 250)
SetClearColor(0, 0, 0)
;;;;;;;;;;;;;;;;;;;;;;;;;
$Object1 = ObjectCreate()
$Cube = AddCube($Object1, 8, 8, 8, 0.9, 0.2, 0.2, 1.0)
;;;;;;;;;;;;;;;;;;;;;;
TextureBind($Object1, $Cube, "Logo")
ShapeRotate($Object1, $Cube, 2, 2, 2)
ShapeTranslate($Object1, $Cube, 0, 0, 0)
SetPrint($Object1)
Global $i = 0, $y = 0
SetCamera(0, 8, 20, 0 - $y, 0, 0)
$CheckWindowTimer = TimerInit()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
while 1
SceneDraw()
$i+= 2
ShapeRotate($Object1, $Cube, 0 + $i, 0 + $i, 0 + $i)
$hSlider = Sleep(50)
If TimerDiff($CheckWindowTimer) > 10 Then
If WinExists($Title) = 0 Then ExitLoop
$CheckWindowTimer = TimerInit()
EndIf
WEnd

[/autoit]