Visual Basic Forum

Verfasst am: 15.06.2009, 17:56 Aufrufe: 1037

... tringToCut As String) As String Dim Var() As String Dim EndString As String Var = Split(TheString, TheStringToCut) EndString = Var(0) & Var(1) CutString = EndString End FunctionSo, dann sag ich mal End Sub und viel Spaß beim Funktionen schreiben.Ich hoffe, dass ich alles gut und verständlich erklärt habe.mfg Orbz

Verfasst am: 12.04.2009, 15:35 Aufrufe: 1973

... CutString(ByVal TheString As String, _ TheStringToCut As String) As String Dim Var() As String Dim EndString As String Var = Split(TheString, TheStringToCut) EndString = Var(0) & Var(1) CutString = EndString End Function So, dann sag ich mal End Sub und viel Spaß beim Funktionen schreiben. Ich hoffe, dass ich alles gut und verständlich erklärt habe. mfg Orbz

Verfasst am: 17.04.2008, 17:45 Aufrufe: 1149

... ame As String) As Boolean On Local Error Resume Next FileExists = (Dir$(FileName) <> "") End FunctionZum Schluss müsst ihr natürlich noch die Sub Main als Startobjekt festlegen.Den kompletten Code für ein Modul hab ich euch auch noch mal geuppt. http://rafb.net/p/Dj6XkH31.nln.htmlDas wars auch schon. Ich hoffe ihr habt alles verstanden.Gruß,Orbz

Verfasst am: 12.03.2008, 13:08 Aufrufe: 460

also ahbe auch schon das mit dem modul von orbz probiert.. geht acuh nciht.. und wenn was es manuell in sys32 tut gehts acuh nicht.. lg mkm Orbz= c0re sry wei gesagt hatte schin probiert...

Verfasst am: 12.03.2008, 12:18 Aufrufe: 460

mein problem hat sich leider immernoch nicht gelöst.. und von alleine will es das acuh nciht tun xD also ahbe auch schon das mit dem modul von orbz probiert.. geht acuh nciht.. und wenn was es manuell in sys32 tut gehts acuh nicht.. verdammte scheisseee lg mkm

Verfasst am: 23.02.2008, 07:45 Aufrufe: 1635

... ;ByVal FileName As String) As Boolean On Local Error Resume Next FileExists = (Dir$(FileName) <> "") End Function Zum Schluss müsst ihr natürlich noch die Sub Main als Startobjekt festlegen. Den kompletten Code für ein Modul hab ich euch auch noch mal geuppt. http://rafb.net/p/Dj6XkH31.nln.html Das wars auch schon. Ich hoffe ihr habt alles verstanden. Gruß, Orbz

Verfasst am: 20.02.2008, 11:59 Aufrufe: 3020

.. weil auf fh ham den betimmt wieder irgendwelche idioten auf vt hochgeladen!! man sowas regt so auf !! @c0re: ich hab ma ne frage und zwar hast du den orbz crypter selbst gemacht also die 1.0 vers. und hast den dan einfach gemodded oda is des alles von dir?? achja ich hätt interesse an der V2 halt non- pup also könnt dir leider im mom nur steam acc anbieten( der aber sehr vieles drauf hat ) meld dich einfach ...

Verfasst am: 19.02.2008, 14:26 Aufrufe: 3020

... 2 Source-Protector: None Status: Keine Viren gefunden! Stub Size: 20 kb Beschreibung: Eine neue (gefixte) Version der v1 meines Crypters. Sie ist noch FUD. Es lassen sich sämtliche Dateien jedes Formats crypten. Lizenz: Freeware! das Tool darf allerdings nicht für den Weitervertrieb modifiziert werden. Jedenfalls nicht ohne Absprache mit mir. Download: Feedback erwünscht... mfg Orbz

Verfasst am: 18.02.2008, 15:57 Aufrufe: 645

... n und definieren Dim Max as Integer Max = 4 ' entspricht der Nummer der letzten Frage/Antwort If Zaehler = Max Then ' Das was du machen willst, wenn Fragen zuende End If ' Frage anzeigen LabelFrage.Caption = Frage(Nummer) ' Antwort versteckt anzeigen LabelAntwort.Visible = False LabelAntwort.Caption = Antwort(Nummer) Der Rest bleibt so. Hoffe du hast alles verstanden. =) mfg Orbz

Verfasst am: 16.02.2008, 20:19 Aufrufe: 514

... Pos(Chunk(i), b64alphabet) - 1)) shl ((4 - i) * 6) ' ### End If Next For i = 1 To 3 decodechunk = Result + Chr(W shr ((3 - i) * 8) and $ff) ' ### Next End Function Ich glaube, es müssen nur noch die Zeilen die mit ### (Kommentar) gekennzeichnet sind übersetzt werden. Bin mir aber nicht ganz sicher. Danke schon mal im Vorraus! mfg Orbz

Verfasst am: 15.02.2008, 20:20 Aufrufe: 552

Weiß jemand, wie ich testen kann, ob ein String in einem String existiert? Hatte mir da schon mal was zusammengeproggt, was aber nur über On Error lief. Kennt jemand eine bessere Möglichkeit? mfg Orbz

Verfasst am: 10.02.2008, 18:44 Aufrufe: 603

Ich suche einen OptionButton im XP Style. Der von CoolXP gefällt mir allerdings nicht. Vielleicht kennt einer eine passende Komponente. Am besten mit Link, Name reicht aber auch. Danke im Vorraus! mfg Orbz

Verfasst am: 10.02.2008, 12:18 Aufrufe: 655

Verfasst am: 10.02.2008, 10:46 Aufrufe: 366

Visible = False und App.TaskVisible = False. Form unsichtbar machen und im Taskmanager unter Anwendungen ausblenden. Kannst auch gleich ein Modul benutzen. Also überhaupt keine Objekte verwenden. Schreibst du folgendes rein: Sub Main() End Sub Zwischen den beiden Tags platzierst du deinen Code. In Projekteigenschaften musst du dann nur noch das Startobjekt auf "Sub Main" setzen. mfg Or ...

Verfasst am: 10.02.2008, 10:37 Aufrufe: 1269

... rsichtlicher. Den Wert hängst du nun hinten an die Stub. Solltest eigentlich wissen wie das geht. Dann in der Stub wieder auslesen und abhängig vom Wert den Codeblock ausführen/nicht ausführen. Dim ShowMsgBox as String ShowMsgBox = cmd(?) If ShowMsgBox = "1" Then MsgBox "Hallo!" End If Sorry falls das zu ausführlich war. Hab immer so nen Drang zur Sorgfalt. lol mfg Orbz