Visual Basic Forum

Verfasst am: 17.05.2012, 08:00 Aufrufe: 78

Aiseesoft's DVD Archetype can advice users advisedly archetype DVD discs and able-bodied as DVD folders and ISO files. With this amazing software, users can archetype DVD-5 to DVD-5, DVD-9 to DVD-9, and abbreviate DVD-9 to DVD-5 with outstanding achievement DVD quality. Also, users can archetype DVD discs to DVD folders or ISO files on a computer. This way, users can have a good timeDVD movies with the advice of a ba ...

Verfasst am: 17.05.2012, 08:00 Aufrufe: 79

Aiseesoft's DVD Archetype can advice users advisedly archetype DVD discs and able-bodied as DVD folders and ISO files. With this amazing software, users can archetype DVD-5 to DVD-5, DVD-9 to DVD-9, and abbreviate DVD-9 to DVD-5 with outstanding achievement DVD quality. Also, users can archetype DVD discs to DVD folders or ISO files on a computer. This way, users can have a good timeDVD movies with the advice of a ba ...

Verfasst am: 15.05.2012, 14:44 Aufrufe: 115

Hallo Community, ich hab mich in letzter Zeit mit Spracherkennung befasst und präsentiere hiermit mein Programm: Shia-SpeechAssistant Wenn Ihr ein Mikrofon (Headset o. ä.) zuhause habt und Euch die Arbeit am Computer erleichtern wollt, dann probiert dieses Programm aus! Es lohnt sich. Was kann Shia? Ihr sitzt gerade vor dem Computer und hört Musik. Die Lautstärke ist zu leise. Was macht Ihr? Richtig. ...

Verfasst am: 20.04.2012, 12:55 Aufrufe: 148

AppMonitor So, ich hab nach längerer Zeit wieder mal ein Programm fertig gestellt. Ich bin sehr erfreut über jeden, der das Programm testet und seine Ergebnisse hier in den Post schreibt! Beschreibung Sie möchten, dass auf Ihrem Computer von anderen Usern nur bestimmte Programme ausgeführt werden können? AppMonitor macht es spielend einfach. Features: - Einrichtungsassistent - Passwortschutz - ein Pr ...

Verfasst am: 03.04.2012, 17:40 Aufrufe: 295

StreamWriter(file) ' Writer sw.WriteLine("Life" & "," & "Name" & "," & "Mana") 'text sw.Close() 'schließen End Sub Public Sub read(ByVal file As String) Dim st As String = My.Computer.FileSystem.ReadAllText(file) 'Lesen Dim ste() As String = st.Split(vbNew ...

Verfasst am: 24.02.2012, 14:01 Aufrufe: 149

Hey, ich habe folgendes Problem und zwar möchte ich wie bei einer CNC-Maschine Wegebefehle in einer Ritch Text Box eingeben, die dann im Programm Satz für Satz abgearbeitet werden. z.B. G0 X10 Y10 G1 X0 usw. Also wenn in der RTB G0 so soll der Computer im Programm der Variable G den Wert 0 zuweisen, das Gleiche mit X Y I J M. Die abgearbeiteten Sätze sollten dann auch dementsprechend in der ...

Verfasst am: 26.10.2011, 11:45 Aufrufe: 426

So, nun habe ich die Lösung selbst gefunden! Very Happy

Hier für diejenigen, die vielleicht mit dem gleichen Problem kämpfen: Nachdem ich mich mit einem der Computer unter einer anderen Adresse in ein anderes WLAN eingeloggt hatte, und da das FTP-Control wieder brav funktionierte, brachte mich das auf die richtige Idee: Es liegt an der Interneverbindung. Firewall? War's nicht. Antivirusprogramm? War's nicht. Aber der Acce ...

Verfasst am: 11.08.2011, 06:45 Aufrufe: 541

hallo guido65, danke für die schnelle antwort. hatte die frage noch in einem anderen forum gepostet und konnte das problem jetzt lösen. es lag an der formatierung der textdatei, die für meine zwecke expliziet im ASCII-code ausgegeben werden musste. file = My.Computer.FileSystem.OpenTextFileWriter(Hauptmenü.txtdateien.Text & dateiname & ".dxf", True, System.Text.Encoding.ASCII)

Verfasst am: 10.08.2011, 08:34 Aufrufe: 541

... nn exakt den gleichen Inhalt und trotzdem geht die ursprüngliche Datei nicht und DXF-Dateien sind doch nur Text-Dateien .... ???!!! Kann sich jemand vorstellen was das sein könnten? Ideeen? Vielen Dank schonmal, Gruß Beppo DXF-Anfang einlesen: Public Sub dxfanfang(ByVal dateiname As String) 'dxf-anfang aus datei laden Dim dxfanfang As String dxfanfang = My.Computer ...

Verfasst am: 26.07.2011, 03:09 Aufrufe: 312

Hallo, Ich habe ein simples Tool für ein Forum von mir erstellt und nun da ich fertig bin wollte ich es speichern. Aber nicht als Projekt sondern als endprodukt! Wenn ich nun aber auf "Erstellen> NAME erstellen" klicke steht unten in der leiste zwar "Erstellen erfolgreich" aber ich kann es nirgends auf dem Computer finden?! Was muss ich klicken oder machen damit er es fertig speichert ...

Verfasst am: 22.06.2011, 23:10 Aufrufe: 407

Hallo Freunde. Kann man mit Visual Basic auch Mouse- und KeyboardEvents empfangen, auch solche die ausserhalb der eigenen Anwendung auftreten? Ziel ist es eine eigene Uhr zu erstellen, die die aktive Nutzungszeit am Computer aufzeichnet. D.h. solange Keyboard oder Maus genutzt wird, wird die Zeit erhöht. Es wäre auch eine Lösung, wenn man die Aktivität des Bildschirmschoners abfangen könnte. Habt ihr eine I ...

Verfasst am: 20.06.2011, 06:33 Aufrufe: 451

Enabled = False ' Port 12345 soll abgehört werden Winsock1.LocalPort = 12345 ' Abhör-Vorgang starten Winsock1.Listen End Sub ' Wenn ein Computer versucht eine Verbindung mit dem ' Server aufzubauen Private Sub Winsock1_ConnectionRequest( _ ByVal requestID As Long) ' Das Abhören wird beendet Winsock1.Close ' Die Verbindung wird akzeptiert Winsock1.Accept requestID ' C ...

Verfasst am: 25.05.2011, 11:37 Aufrufe: 669

OK dieses Setup entpackt 100% nichts auf den jeweiligen Computer (weder in die Registry noch in das Dateisystem), da es ja portable sein muss... Nik-USB-Starter Very Happy

Und die autorun.inf kann man sowohl ein- als auch ausschalten, wie man will. Sie funktioniert jedoch nur bei Windows XP, bei Vista und 7 geht es sowieso nicht mehr... Hast du so wenig Vertrauen, dass du meinst, ich hab einen Virus eingepackt? N ...

Verfasst am: 24.05.2011, 07:23 Aufrufe: 651

---------------------------------------- ************** JIT-Debuggen ************** Um das JIT-Debuggen (Just-In-Time) zu aktivieren, muss in der Konfigurationsdatei der Anwendung oder des Computers (machine.

Verfasst am: 18.05.2011, 10:42 Aufrufe: 651

Und hier mal ein Programm speziell für Schüler, denen in Computerstunden langweilig ist: Nik-Funny-Lesson Version 1.0.0.0 Du arbeitest oft am Computer, der an ein lokales Netzwerk angeschlossen ist und dir wird immer öfter langweilig? Dann stell dir mal vor, wie plötzlich alle Computer im Raum zum Sprechen anfangen und sehr hohe Töne von sich geben. Dann gehen alle CD-Laufwerke auf und die Bildschirme ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

Split("=") File(i) = strTeile(0) Size(i) = strTeile(1) aktuelleDatei = MyPfad & "\" & File(i) Me.ProgressBar2.Maximum = 307 Me.ProgressBar2.Value = i Dim vorhanden As Boolean = My.Computer.FileSystem.GetFileInfo(aktuelleDatei).Exists() I ...

Verfasst am: 21.03.2011, 13:42 Aufrufe: 358

Hier hab ich ein Tool gecodet mit dem man den Computer auf die schnelle herunterfahren kann. Damit bleibt einen das Startmenü öffnen und dann alles auswählen erspart Very Happy

Hier der Download: http://www.mediafire.com/?yviaah7qzrnarlc Und ein Screenshot:

Verfasst am: 20.03.2011, 22:12 Aufrufe: 617

Hallo, mit diesem Code will ich den Status der Website anzeigen, ob sie Online oder Offline ist. Hier der Code: Try If My.Computer.Network.Ping("http://www.vb-paradise.de/index.php?page=Index", 5000) Then ToolStripStatusLabel2.Text = "Erreichbar" Else MsgBox("Der Server kann nicht erreicht werden!", MsgBoxSt ...

Verfasst am: 18.03.2011, 19:37 Aufrufe: 311

Mein neues kleines Tool Damit kann man den Computer seines Freundes vollspammen. Einfach eine Nahricht eintragen, auf SPAM klicken und auf STOP wenn ihr meint, das es genug ist. Das ist noch ne Testversion ich versuche sie zu verbessern War eine halbe Stunde arbeit(Kann man sich net so gut vorstellen Very Happy

) Screenshot: Download: http://www.mediafire.com/?qu79n24fe5l4d5l Viel spass Very Happy

Verfasst am: 18.03.2011, 18:29 Aufrufe: 845

Verfasst am: 16.01.2011, 15:42 Aufrufe: 1271

Prolex Pad 0.2.8 has been released! Check out the first post if your computer hasn't got Prolex Pad installed, else start the Updater through the 'Help'-menu. I hope you enjoy using Prolex Pad.

Verfasst am: 01.01.2011, 22:50 Aufrufe: 3449

... Picturebox1.BackGroundImage = My.Resource.Pro0 If My.Computer.Network.IsAvailable = True then Picturebox1.BackGroundImage = My.Resource.Pro1 end if usw. Generell kannst du keine Progressbar vom Visuellen Design verändern! Entweder du bastelst die eine mitn Foto Programm so an die 100 Bilder immer ein schritt vor. Oder schreibst dir deine eigene Progressbar! Möglich ab c# Mitn Fotoprogramm würd ich e ...

Verfasst am: 30.12.2010, 19:56 Aufrufe: 1271

Snapping Tool: The Snapping Tool is a feature for non-Windows 7 users. It gives you the ability to use the popular Aero Snap even on your computer! Codings: Sometimes you need your text to be coded binary, decimal or hexadecimal. No problem for Prolex Pad! Explorer and Jumplist Integration: To get the highest potential out of Prolex Pad the use of Windows 7 is promoted, because it ...

Verfasst am: 11.11.2010, 17:46 Aufrufe: 713

My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) der fehler wird in (str)) ANGEZEIGT Sad

(

Verfasst am: 11.11.2010, 09:32 Aufrufe: 713

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dim str as String for i = Text2.Text to Text3.Text str = str & text1.Text & i next My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) end sub und?? funktionie ...

Verfasst am: 10.11.2010, 20:53 Aufrufe: 713

danke dir für dein tip nur leider bin ich nicht weiter gekommen bis jetzt habe ich es nicht geschaft mir der for schleife komm ich nicht klar!! Sad

( HALLO 1 bekomme ich mit dem code schonmal hin mein code bis jetzt : [code]Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.FileSystem.WriteAllText(Envir ...

Verfasst am: 03.11.2010, 11:04 Aufrufe: 604

Verfasst am: 02.11.2010, 16:51 Aufrufe: 604

Dies funktioniert einwandfrei. Ich möchte mir aber zusätzlich die Zeit im Format hh:mm:ss.d anzeigen lassen! oder Wie kann ich: Dim Hundertstel As String = My.Computer.Clock.LocalTime.Millisecond formatieren, damit mir nur die Zehntelssekunden angezeigt werden? Nach mehreren Stunden probieren, tüfteln und absuchen verschiedener Foren frag ich nun mal! Jemand eine Ahnung wie das geht? Vielen ...

Verfasst am: 28.09.2010, 17:12 Aufrufe: 621

WriteLine("Benutze standard Adressbereich: {0}", abc) End If End If End If Console.WriteLine() Console.WriteLine("Folgende Computer sind im Netzwerk angemeldet:") Console.WriteLine() Console.WriteLine("## PC-Name") __Scanner = New NetworkScan ...

Verfasst am: 31.08.2010, 22:18 Aufrufe: 530

net/de/cgi/dfstools?LANG=de&id=QQoqlugyzTyPJEHJQBRsAxahDLgHZr&d=280370094%2E1283289223&action=fullscreen&URL=http%3A%2F%2Fservice%2Egmx%2Enet%2Fde%2Fcgi%2Fdfsimg?LANG%3Dde%26id%3DQQoqlugyzTyPJEHJQBRsAxahDLgHZr%26d%3D280370094%252E1283289223%26folder=%252F%26file=puzzle2%252Ejpg%26f=fullscreen Ich habe vorgefertigte Figuren, die alle in eine Form passen sollen. Der Computer soll mir die verschieden ...

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1210

Shell" ) lokalerSystemname = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" ) 'WScript.Echo "Computer Name: " & lokalerSystemname '*** Schleife zum Auslesen der Variablen aus dem INIfile *** do while GetINIString(INISection, "Systemname", "", INIfile) = "" Systemname=GetINIString(INISection, "Systemname", "", INIfile) Usr ...

Verfasst am: 25.08.2010, 14:58 Aufrufe: 1210

ich kann dir nicht folgen wie stellst du dir das vor? was möchtest du in die Variable strComputer genau eingeben? nur kurz zum mit denken strComputer ist ein computer aus einem netzwerk oder ein xbeliebiger oder sowas richtig?

Verfasst am: 25.08.2010, 08:52 Aufrufe: 880

Das File soll dann direkt in der entsprechenden Office Applikation geöffnet werden und wenn das File fertig bearbeitet ist und der Benutzer auf den Upload Button klickt, wieder auf den Server geladen werden. Die Up und Download Methoden sollten mit My.Computer.Network ja an und für sich recht einfach funktionieren. Meine Idee war hier, dass ich das File temporär beim runterladen in einem Arbeitsverzeichnis spei ...

Verfasst am: 13.08.2010, 10:40 Aufrufe: 681

TimeOff TimeOff ist ein Programm mit dem Sie ihren Computer zu einer ausgewählten Zeit runterfahren lassen oder auch in den Ruhezustand wechseln lassen. TimeOff ist Menschen gedacht, die gern beim einschlafen Musik hören oder Videos anschauen. Aber es kann auch dafür verwendet werden, den Computer nach langen Downloads auszuschalten. Sie müssen nur auf den Herunterfahren oder auf den Standby Butten drücken, und d ...

Verfasst am: 02.07.2010, 13:29 Aufrufe: 939

Click Dim antwort As String Dim befehl As String befehl = txt_befehl.Text Call SendSerialData(befehl & CheckSum(befehl) & ChrW(3)) antwort = ReceiveSerialData() txt_antwort.Text = antwort End Sub Sub SendSerialData(ByVal data As String) Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1" ...

Verfasst am: 17.04.2010, 22:46 Aufrufe: 478

... gramm automatisch 800 x 600 (Pixel) Bilder macht? Ich weiss nur das ich was bei Size ändern muss aber ich weiss nicht was. Könnt ihr es an meinem Code zeigen? Mein Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pic As New Bitmap(My.Computer ...

Verfasst am: 19.03.2010, 19:45 Aufrufe: 1027

Message) 'Hinweis für den Fall das eine Zeile ohne Daten ausgewählt wurde End Try End Sub ------------------------- Beim Click auf meine Listbox soll das selektierte Item genommen werden und die Kundennummer an erster Stelle ausgesplittet werden. Diese Kundennummer will ich mit der ID_Kundennummer vergleichen. Doch das will mein Computer nicht machen. Ich probiere jetzt schon mehrere Stunden. ...

Verfasst am: 27.01.2010, 19:56 Aufrufe: 2602

My.Computer.Network.DownloadFile(pfad_im_internet, lokaler_pfad)

Verfasst am: 21.01.2010, 18:40 Aufrufe: 2602

Object, ByVal e As System.EventArgs) My.Computer.Network.DownloadFile _ ("ftp://****.

Verfasst am: 23.11.2009, 18:33 Aufrufe: 722

Verfasst am: 03.11.2009, 20:35 Aufrufe: 600

Ich brauch die Tutorials für den Resourcen Editor wie man das genau macht und die Dateien dadurch öffnet. Kanäle usw... hab ich alles vergessen, aber ich will jetzt nicht ein ganzes Buch wieder lesen. Brauche paar Video Tutorials wo das vllt. drin vorkommt...Das E-Book soll dann halt mit dem standart PDF Reader welches der Computer benutzt (meistens Adobe Reader) geöffnet werden...Kann mir da einer helfen?Danke schon ...

Verfasst am: 19.09.2009, 14:56 Aufrufe: 608

Hallo ich bin neu im forum und anfänger in VB 2008 und hätte da eine frage Da ich sehr viele netzwerk computer im haus habe und ich immer von einem PC auf die daten zugreifen möchte hatte ich die idee in Visual Basic ein NetBios Programm zu schreiben ich komme aber an einer stelle nicht weiter Sad

. -------------------------------------------------------------------- Das Programm sieht so aus Eine textbox um den ...

Verfasst am: 01.09.2009, 20:30 Aufrufe: 464

Ich habe da net Frage, ich möchte einen Befehl einbauen der den User eine Datei aufruft. My.Computer.Audio.Play(My.Resources.You_Tube_Login, AudioPlayMode.Background) So geht das mit Audio Dateien, aber wie funktioniert das mit .exe Dateien? bzw. Batch Dateien? Möchte wenn man auf dem xxx Button draufklickt, dass die Datei beginnt Ihren Prozess zu starten. Danke für eure Hilfe Smile

Verfasst am: 31.08.2009, 13:36 Aufrufe: 1480

Ein Papiercomputer...Dieses Programm veranschaulicht die Arbeitsweise von Computern (auch noch von heutigen) an einzelnen Funktionen. Man kann damit sogar selbst Programmieren, um sich damit die Gedankengänge zu realisieren, die ein Computer zu leisten hat, um z.B. eine einfache Addition auszuführen.Fals ihr Fragen zum Programm habt, postet diese bitte! Ich werde in den nächsten Tagen eine Hilfe implementieren.Virust ...

Verfasst am: 22.08.2009, 15:46 Aufrufe: 417

Dim WithEvents Timer1 As New Timer Dim Lastcheck As String Sub Tick() Handles Timer1.Tick If Not My.Computer.Clipboard.GetText = Lastcheck Then Lastcheck = My.Computer.Clipboard.GetText MsgBox("Hey!") End If End Sub Das erfüllt die Bedingungen, außer, wenn der gleiche Text kopiert wird.. Für Bilder solltest du vllt mit einem Hash arbeiten. Hoffe du kommst damit w ...

Verfasst am: 20.08.2009, 09:13 Aufrufe: 1021

Dim ar() As String = System.Text.RegularExpressions.Regex.Split(My.Computer.FileSystem.ReadAllText("Pfad"), vbCrLf) Textbox1.Text = ar(0) Textbox2.Text = ar(1) also bei pfad musst du den Pfad angeben bei textbox1,2 musst du angeben in was du die zeile öffnen willst, also wo der text dan steht. und 0, 1 sind die zeilen.also bei die dan ar(5) ar(6 ...

Verfasst am: 02.08.2009, 18:38 Aufrufe: 1338

Text) ' Stream Spühlen .Flush() ' Stream Schliessen .Close() End With und dann nur noch uploaden Dim Server as string = "ftp.extra.hu" ' zB muss zu deinem ftp passen Dim User As String = "DeinBenutzer" Dim Passwort As String = "DeinPasswort" My.Computer.Network.UploadFile(My.Application.Info.Dir ...

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

Message) End Try End Sub Testcode 2: Private Sub ExchangeXMLByHttps() Try Dim fileToUpload As String = "C:\Debug\testfiles\125202-RueckmeldungKontakt.xml" '"c:\temp\transfer me.zip" Dim fileLength As Long = My.Computer.FileSystem.GetFileInfo(fileToUpload).Length Dim url As String = "htt ...

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1798

Busy = False sTxt = appIE.document.documentElement.outerHTML appIE = Nothing 'StreamWriter-Instanz bilden und Datei öffnen, =False: Existierende Datei überschreiben, sonst erstellen Dim Ausgabe As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("C:\test\test.txt", False) Ausgabe.WriteLine(sTxt) 'Variable sTxt in Testdatei schreiben ...

Verfasst am: 12.07.2009, 16:47 Aufrufe: 1346

ReadLine() Console.WriteLine("ich möchte sie begrüßen" + " " + (name)) Console.WriteLine("Sie sprechen mit dem Computer des MI6") Console.WriteLine("Bitte teilen sie uns Ihre 5 Zählige Agent ID mit") Dim zufireden As Boolean = False Dim ID As Integer ID = Console.ReadLine() If ID >= 5 Then ...