Visual Basic Forum

Verfasst am: 26.01.2012, 12:15 Aufrufe: 138

hi ich habe leider keine ahnung was in vbs geht und was nicht ich hätte jetzt auch keine lösung für dein problem in vb6 habe ich damals ein modul geschrieben das wie für dich geschaffen wäre Smile

aber was du versuchen könntest dass du deinen steuerelementen einen index gibst somit ersparst du dir dein name und type of Text1(3).Text so würdest du dir wahrscheinlich sogar unnötig viel arbeit ersparten ...

Verfasst am: 06.12.2011, 09:03 Aufrufe: 181

Verfasst am: 30.11.2011, 10:38 Aufrufe: 223

Ich möchte gerne in meinem Sub auf eine Function verweisen, damit diese dann ausgeführt wird. Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function der Code steht komplett in einem Modul. Nun zeigt mit VB beim Compilie ...

Verfasst am: 25.10.2011, 12:02 Aufrufe: 175

php?id=528 ' ********************************************************* ' * ' * Modul Delay ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermi ...

Verfasst am: 25.10.2011, 11:49 Aufrufe: 175

Output = "OUTPUT ON" & Chr(13) 'ausgabe des geräts aktivieren Call Verzoegerung(Zeit(i)) 'für gewisse zeit warten Next Next im Variablen-Modul: (damit die variablen übersichtlich bleiben) Public VDauer As Currency Public VStart As Currency Public VZeit As Currency im Modul: P ...

Verfasst am: 18.10.2011, 10:00 Aufrufe: 171

Hallo Christopher, Du hast recht, ich habs mal wieder schlecht beschrieben. Es ist vergleichbar mit einer Waschmaschine : Ich rufe aus einem Formular mit dem Start Button das Programm(Function) "Spülen" auf. "Spülen" liegt in einem Modul und abeitet über Timer, zeitgesteuert. Ventil auf, 2sec Pause, Pumpe an usw. Der Timer wiederum ist nicht der ONBOARD Timer sondern ebenfalls eine Fu ...

Verfasst am: 16.10.2011, 17:09 Aufrufe: 171

Verfasst am: 06.10.2011, 14:00 Aufrufe: 337

Verfasst am: 16.01.2011, 09:19 Aufrufe: 497

hi das hast du ganz richtig verstanden... jetzt brauchst dass nur mehr zusammen setzen WebBrowser1.Navigate "www.google.de" do doEvents while webbrowser1.busy = True WebBrowser1.Navigate "www.youtube.com" oder du suchst nach dem delay modul und verwendest das lg

Verfasst am: 10.12.2010, 08:50 Aufrufe: 396

Sobald ich das ExcelArbeitsblatt schließe, öffnet es sich direct wieder, obwohl ich meines (relativ bescheidenen) Wissens die App beende. Hab im I-Net schon viel herum gesucht, aber nur diese Lösung gefunden. Anbei mal der Code (der komplett in einem Modul verfasst ist) Dim r As Range Sheets(1).Activate Range("a2:a1000").Clear Set Groups = GetObject("LDAP://OU=Sic ...

Verfasst am: 26.11.2010, 16:33 Aufrufe: 680

He christopher.g, wie recht Du hast - genau das habe ich gesucht, dieses Modul beschäftigt sich gottseidank nicht so heftig mit sich selbst, wie eine Schleife, die auf kein Ereignis mehr reagiert. Heißen Dank für den Tip.

Verfasst am: 26.10.2010, 14:25 Aufrufe: 565

Hallo, ich hoffe ich bin im richtigen Unterforum gelandet, wenn nicht, dann Entschuldigung und bitte verschieben. Ich habe eine .vb-Klasse und möchte darunter ein Modul haben und in dem Modul auf eine Funktion der Klasse zugreifen, aber dann kommt der Fehler, dass ClassNr1 nicht deklariert sei. Hier der "Code": Namespace NameSpaceNr1 Public Class ClassNr1() public function funct ...

Verfasst am: 21.09.2010, 20:18 Aufrufe: 399

Vielleicht hilft dir das weiter. Zumindest ist das der Code in Vb6. Du könntest alle Timer auf False setzen den Inteval ändern und dann wieder auf True. Und falls du möchtest das der Timer nur begenzt läuft machst du ein Modul Global zaehler Und dann schreibst du in den (bzw. die) Timer: If zaehler = 1 then Timer1.Enabled = False 'oder Exit Sub zaehler = zaehler + 1

Verfasst am: 03.08.2010, 11:51 Aufrufe: 865

Verfasst am: 03.08.2010, 10:48 Aufrufe: 865

Verfasst am: 02.08.2010, 11:04 Aufrufe: 552

Ah okay, also ganz einfach: Public ganzes Projekt und Private nur im Modul/Form in der man sich gerade befindet. Okay vielen dank =)

Verfasst am: 02.08.2010, 11:00 Aufrufe: 552

hi ist ganz einfach erklärt private, public, global geben den bereich an von dem die funktion oder variable angesprochen werden kann... private ... nur in dem modul oder form wo die funktion steht pulic ... für das ganze projekt und global ... glaub sogar systemweit also für dll usw (bin mir da aber nicht sicher) so was heist das alles beispiel: du hast eine form und ein modul im modul private s ...

Verfasst am: 30.07.2010, 16:18 Aufrufe: 413

Enabled = True End Sub Private Sub Timer1_Timer() Timer1.Enabled = False Call ladewelt End Sub Modul: Declare Function BitBlt Lib "gdi32.dll" (ByVal _ hdcDest As Long, ByVal _ nXDest As Long, ByVal _ nYDest As Long, ByVal _ nWidth As Long, ByVal _ nHeight As Long, ByVal _ hdcSrc As Long, ByVal _ nXSrc As Long, ByVal _ nYSrc As Long, By ...

Verfasst am: 06.03.2010, 15:58 Aufrufe: 1263

Hallo, ich komme mit folgender Anforderung nicht (mehr) weiter : 1.) Ich habe eine Access-2007 Datenbank mit vielen Tabellen (und vielen Spalten) 2.) Diese möchte ich mit einem VB.NET Modul zunächst füllen ...aber : Dim GDb As DataSet = DataSetFromAccess("Game", xmla_path) 'DataSetFromAccess Modul hier erst mal nicht relevant Dim ObjectInfo As DataTable = GDb.Tables("tbl ...

Verfasst am: 26.11.2009, 10:45 Aufrufe: 815

Verfasst am: 19.11.2009, 08:08 Aufrufe: 1560

Ich habe mich ma an die Arbeit gemacht und euch ein kleines Druckmodul geschrieben.Damit könnt ihr- Testen , ob ein Drucker vorhanden ist, wenn ja , wird er angezeigt- Drucken - Bis jetzt sonst nichts mehr :DNaja , ihr könnts euch mal anschauen.Der Vorteil dabei ist, dass ihr nicht immer den Code schreiben müsst (falls euer Tool überhaupt die Druckfunktion braucht) , sondern einfach die Funktion aufrufen könnt.Das Mo ...

Verfasst am: 17.11.2009, 11:57 Aufrufe: 1745

Hab mir da mal eine function gebastelt die eine Datei in beliebige "Formate" umwandelt Folgenden Code einfach in Modul geben, und im Programm mit "Call FileToFormat (Pfad und Name der Datei, Charset_aus_Liste) aufrufen 'Charset: ' UTF_7="utf-7", UTF_8="utf-8" ' BIG5="big5", US_ASCII "us-ascii" ' ISO_8859_1="iso-8859-1" ...

Verfasst am: 17.11.2009, 11:54 Aufrufe: 2374

Hab mir da mal eine function gebastelt die eine Datei in beliebige "Formate" umwandelt Folgenden Code einfach in Modul geben, und im Programm mit "Call FileToUTF8 (Pfad und Name der Datei, Charset_aus_Liste) aufrufen 'Charset: ' UTF_7="utf-7", UTF_8="utf-8" ' BIG5="big5", US_ASCII "us-ascii" ' ISO_8859_1="iso-8859-1", ...

Verfasst am: 07.11.2009, 11:28 Aufrufe: 1443

hInstance, 0)[/code]In einem Modul:Visual Basic: [code]Option ExplicitPublic Const HC_ACTION = 0Public Const WM_KEYDOWN = &H100Public Const WM_KEYUP = &H101Public Const WM_SYSKEYDOWN = &H104Public Const WM_SYSKEYUP = &H105Public Const VK_TAB = &H9Public Const VK_CONTROL = &H11Public Const VK_ESCAPE = &H1BPublic Const VK_LWIN = &H5BPublic Const VK_RWIN = &H5CPublic Const WH_KEYBOARD_LL = 13Public Const LLKHF_ALTDOWN = ...

Verfasst am: 02.10.2009, 03:43 Aufrufe: 1674

Verfasst am: 06.09.2009, 09:36 Aufrufe: 320

Ich habe ein VB6-Projekt mit 5 Formularen und einem globalen Modul. Ich will in einer globalen Funktion mit 'savesetting' den Projektnamen und den Formularnamen in die Registry schreiben Mit welcher Fuktion erhalte ich Projektnamen (ist bei dem Projekt natürlich immer gleich) und den Formularnamen?

Verfasst am: 03.07.2009, 12:25 Aufrufe: 591

bzw mir

oder an dem codealso im endefekt will ich eine Value in der memory um 1 incrasen das sieht dann so ausdas Modul!Option Explicit 'Find Window Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long 'Get Process ID Private Declare Function GetWindowThreadProcessId Li ...

Verfasst am: 29.06.2009, 04:25 Aufrufe: 1410

... nktion als ersten Parameter den zu ver-/entschlüsselnden Stringund als zweiten Parameter einen En-/Decryption Key übergeben.Im Gegensatz zu anderen Verschlüsselungsalgorithmen, wie z.B. Base,kann man den String nicht wieder entschlüsseln, wenn man den Key nicht hat.Aber Vorsicht:Key = RC4(VerschlüsselterText, Klartext)RC4 eignet sich gut zum verschlüsselten Anhängen von Builder Strings an einen Stub.Modul ...

Verfasst am: 19.06.2009, 19:00 Aufrufe: 1715

Hi Leute :)Hab mir gedacht ich sollte euch mal wieder nen source schreiben den ihr vielleicht gebrauchen könnt.Name: DestroyFile()Funktion: Überschreibt und löscht DateienRückgabe: True oder FalseBeschreibung:Das ganze ist ein fertiges Modul. Ihr braucht den Code also nur in ein Modul einfügen und die Function "DestroyFile" aufrufen.Syntax:DestroyFile(Filepath, Loops, Blocksize)Filepath - Ganz klar wird hier ...

Verfasst am: 18.06.2009, 12:09 Aufrufe: 627

Autor: byt0xHi,Mein erster hoffendlich geistreicher Beitrag hier im Forum,Ich habe ein Modul entworfen mit dessen Hilfe es möglich ist mehrere Dateien und Informationen (Binary) in einer anderen Anwendung (z.B Server) zu speichern.Sinn und Zweck:Jeder sollte wissen das sich hiermit auf recht einfache Art und Weise, Builder erstellen lassen. Außerdem fällt das Starre herumfuchteln mit Resourcen weg.Das alles geschieht ...

Verfasst am: 18.06.2009, 11:51 Aufrufe: 831

Hiermit kann man also ein Minumum und Maximum der Fenstergröße festlegen.Code in ein Modul einfügen.Visual Basic: [code]Option ExplicitPrivate Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd ...

Verfasst am: 15.06.2009, 18:21 Aufrufe: 942

Thema: Autostart + Einfacher Umgang mit der RegistryAutor: Five-Three-NineSo hier ein Kleines Tutorial wie man unter Visual Basic mit der Registry Arbeiten kann.Hier habe ich es an dem Beispiel Autostart erläutert.Also Nur einen von Vielen Punkten erklärt aber es liegt ein Modul bei,indem sämtliche Aufrufe an die Registry schon vorgefertigt sind.Somit sollte es euch nach dem TuT ein leichtes Sein mit der Registry zu ...

Verfasst am: 15.06.2009, 11:29 Aufrufe: 1033

Mit der normalen „FileExists“ Funktion geht es auch nicht und deshalb kommt jetzt die Api „OpenFile“ zum Einsatz.Hier ein Code zum Überprüfen der Existenz einer Datei:Public Function FileExists(ByVal Filename As String) As Boolean Dim OF As OFSTRUCT FileExists = OpenFile(Filename, OF, OF_EXIST) = 1 End FunctionDiese könnt ihr einfach in einem Modul speichern und dann s ...

Verfasst am: 17.05.2009, 11:34 Aufrufe: 943

Verfasst am: 01.05.2009, 14:39 Aufrufe: 497

Aso ich habe momentan ein Problem.. kann den source leider jetzt nicht posten, aber vieleciht kann ir so einer helfen.. Also.. ich habe eine schleife die mehrfach durchläuft.. in dieser schleife wird ein webbrowser benutzt um sich z.b. einzuloggen oder z.b. suchanfragen abzuschicken o.ä. (is kein spamteil..) das problem is, dass bei dem den ich das programm geschickt habe (er sollte es testen) nach z.b. dem 12x ...

Verfasst am: 13.04.2009, 13:38 Aufrufe: 1996

hab schon was anderes gefunden überprüft anscheinend vmware, anubis, virtual pc und virtualbox habs mal mit dem anti sandbox von zig gekreuzt und verbunden: als modul: Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088 Private Const FILE_SHARE_READ = &H1 Private Const FILE_SHARE_WRITE = &H2 Private Const GENERIC_READ = &H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const OPEN_E ...

Verfasst am: 08.04.2009, 14:44 Aufrufe: 545

Modul Public Const PROCESS_ALL_ACCESS = &H1F0FFF Dim f1holder As Integer Dim timer_pos As Long 'API Declaration Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As ...

Verfasst am: 06.02.2009, 17:47 Aufrufe: 1944

Also das ist ein kleiner Login, der seine Einstellungen in der Reg speichert Pro - Man hat keine Dateien aus denen das PW ausgelesen werden kann - Ich find, man kann besser Abfragen Kontra - Längerer Code ( auch nicht so wirklich ) - Falls man für das Schreiben in der Reg keine Rechte hat geht das natürlich nicht Also fangen wir mal an Als erstes brauchen wir ein Modul Den könnt ihr so Kopieren, brau ...

Verfasst am: 27.09.2008, 07:09 Aufrufe: 2359

Verfasst am: 21.09.2008, 19:39 Aufrufe: 2359

Hey Leute,Ich habe mal so 10-20 Minuten im Inet nach Runtime Crypter in VB gesucht, und siehe da , ich wurde fündig, trotz dem , dass viele sagen es wäre nicht möglich.Der Source hängt an , baut keine Virus-Scheisse damit :DBitte um Feedback , ob alles klappt.Viel SpaßLiebe Grüße, Blackfinal

Verfasst am: 21.09.2008, 10:31 Aufrufe: 2092

dll Files machen, das kann man dann nachlesen hier, oder auch bei Google.Natürlich ist damit dann ein Teil seines Problems gelöst, was aber total irrelevant ist weil man das alles auch anders lösen kann.Und zwar auch noch so das man alles in ein Modul machen kann.Zur Erklärung:Ein FTPd kann über diverse Kommands angesprochen werden die man alle hier nachlesen kann.Man kann damit auch Dateien löschen, Dateien verschie ...

Verfasst am: 13.09.2008, 10:38 Aufrufe: 1295

SubItems(1) = Trash(1) End With Next i Wend Close FEnd Sub[/code]Und in ein Externes Modul schreibst du:Visual Basic: [code]Public Function FileLineCount(ByVal sFile As String) As Long Dim F As Integer Dim sLine As String Dim nCount As Long ' Datei sequentiell öffnen und zeilenweise auslesen F = FreeFile Open sFile For Input As #F While Not EOF(F) ...

Verfasst am: 07.09.2008, 17:50 Aufrufe: 386

Verfasst am: 06.09.2008, 07:13 Aufrufe: 946

(atzekoenig;7994)wenn ich das so aufrufe :Dann wird aber nichts unter c erstellt?Du hast einfach nur das in den Codebereich geschreiben und dachtest, jetzt geht alles von selbst?Dann ui, dann fang mit was leichterem an als Funktionen aus einem Modul aufzurufen (oO) Mit dem was du da bislang hattest, legst du nur den Pfad der Datei fest und das Trennzeichen, durch das sie getrennt werden.Nun musst du noch die Funktion ...

Verfasst am: 05.09.2008, 09:48 Aufrufe: 825

Ja das Modul ist schon ok aber nicht genau das, was ich suche.Der Computer sollte dann mit sofortiger Wirkung ausgehen, als ob man den Stecker zieht. :wink:Mir fällt der Name einfach nicht mehr ein. =(MfG

Verfasst am: 04.09.2008, 20:05 Aufrufe: 825

das ist der richtige?Habe dir das Modul geuploaded : http://www.file-upload.net/download-109030...utdown.bas.html

Verfasst am: 04.09.2008, 18:44 Aufrufe: 825

Modul:Visual Basic: [code]Option Explicit' Windows-Version' für den Aufruf der GetVersionEx-FunktionPrivate Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128End TypePrivate Declare Function GetVersionEx Lib "kernel32" _ Alias "GetVersionExA" (lpVersionInformation As _ OSVERSIONINFO) As Long'Syste ...

Verfasst am: 04.09.2008, 06:33 Aufrufe: 566

Hey Leute, habe mal eine Frage. Ihr kennt doch sicher alle einen RatDot, wie Mann ihn z.B. Bei CSS verwenden tut. Ich habe mal versucht so einen nachzubauen, meine 1ste Idee wie ich es Bauen könnte war Dieses Skin Modul. Modul: http://rapidshare.com/files/142493260/Skin.bas.html Hat auch alles wunderbar geklappt, der Punkt war da (Ich habe einen Punkt in PS3 gemalt, den dann als BMP abgespeich ...

Verfasst am: 01.09.2008, 16:15 Aufrufe: 1687

.Fangen wir an , als erstes brauchen wir ein Module , das die ganzen Funktionen deklariert.Modul einfügen mit folgendem Code:Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long& ...

Verfasst am: 29.08.2008, 00:19 Aufrufe: 1108

Ok, als erstes ist es ein encryptetes Passwort. Zweitens ist das sinnlos, mit einem einfachen Encrypt Decrypt Modul da ranzugehen.Dann würde die Verschlüsselung gar keinen Sinn machen. :pGuck dich lieber mal nach "Brute Force" und Permutation um, das sollte dir mehr helfen.