Alarma prin intranet
Last Updated: Dec 26 2011 10:17, Started by
luxornet
, Sep 13 2011 07:55
·
0
#1
Posted 13 September 2011 - 07:55
Salut.
Asi dori sa am posibilitatea ca sa pot trimite unui alt calculator aflat in retea un semnal (de orice tip). M-ar interesa practic sa fac un sistem de alarmare banal. Dati-mi o idee de plecare sau un cod susrsa (VB6) ce ar putea fi modificat pentru asta. Multumesc. |
#2
Posted 14 September 2011 - 06:23
luxornet, on 13th September 2011, 08:55, said: un cod susrsa (VB6) ce ar putea fi modificat pentru asta http://www.vb6.us/tu...ontrol-tutorial |
#3
Posted 26 December 2011 - 10:17
I-ai putea trimite un mail, nu este greu, doar ca doare un mail, nu prea poate impresiona, poti sa fac un soft prin ftp, am eu unul si pui codul:
If TextBox1.Text = Alarma! Then Console.Beep() My.Computer.Audio.Play("Alarma1.wav")Si programul asta il iei si il mai mudifici putin, ca de exemplu cand inregistreaza o miscare pe camera sa scrie in TextBox2.Text Alarma! iar TextBox1.Text sa fie fereastra de anuntare si TextBox2.Text fereastra de trimitere si pui un timer pe care il setezi la un interval de 100, in dai Enable si in timer pu asa: If TextBox2.Text = "" Then Else Dim name As String name = TextBox1.Text Try Dim client As New Net.WebClient client.Credentials = New Net.NetworkCredential("utilizator", "parola") client.UploadString("ftp://career.xp3.biz/chat.txt", RichTextBox1.Text & "" & name & ": " & RichTextBox2.Text & vbNewLine) RichTextBox2.Clear() Catch ex As Exception MsgBox("Eroare, luati masuri de ingrijire.", MsgBoxStyle.Critical, "Eroare!") End Try Try Dim client As New Net.WebClient client.Credentials = New Net.NetworkCredential("utilizatoe", "parola") RichTextBox3.Text = client.DownloadString("ftp://host.ro/chat.txt") If RichTextBox3.Text = RichTextBox1.Text Then Else : RichTextBox1.Text = RichTextBox3.Text End If Catch ex As Exception End Tryasta e de la al meu si inlocuesti tu richtextbox1.text cu textbox1.text sau ce ti-am precizat eu anterior si pui un timer setat cu intervalul tot la 100 pe programul care primeste semnalul, nu pe asta modificat, iar in timer pui asa: Try Dim client As New Net.WebClient client.Credentials = New Net.NetworkCredential("user", "parola") RichTextBox3.Text = client.DownloadString("ftp://host.ro/chat.txt") If RichTextBox3.Text = RichTextBox1.Text Then Else RichTextBox1.Text = RichTextBox3.Text End If Catch ex As Exception End TrySper ca ti-a fost de ajutor, sa imi dai si mie proiectul cand este gata sa vad ce ti-a iesit Dupa cum am vazut linkul ce lai primit mai sus se bazeaza pe aceiasi chestie doar ca este ceva mai complicat, eu tiam facut ceva mai simpu doar pentru ce iti trebuie tie Mult succes!!! Edited by yourcrys, 26 December 2011 - 10:20. |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users