Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Cum accesez site-ul CNAS ?

Algoritm simplu de calculare al u...

Bitdefender Total Security ș...

casa verde 2024
 Intrerupator cu N - doza doar cu ...

Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!
 Cum era nivelul de trai cam din a...

probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda
 Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...

Rezultat RMN

Numar circuite IPAT si prindere t...
 

Alarma prin intranet

- - - - -
  • Please log in to reply
2 replies to this topic

#1
luxornet

luxornet

    Member

  • Grup: Members
  • Posts: 242
  • Înscris: 25.02.2007
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
neagu_laurentiu

neagu_laurentiu

    Guru Member

  • Grup: Senior Members
  • Posts: 40,571
  • Înscris: 30.07.2003

View Postluxornet, on 13th September 2011, 08:55, said:

un cod susrsa (VB6) ce ar putea fi modificat pentru asta
Vrei sa fii programator sau carpaci ?!

http://www.vb6.us/tu...ontrol-tutorial

#3
yourcrys

yourcrys

    New Member

  • Grup: Members
  • Posts: 17
  • Înscris: 31.10.2011
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 Try
asta 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 Try
Sper 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

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate