Neurochirurgie minim invazivă
"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv. Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice. www.neurohope.ro |
Trimite IP-ul extern(public) unei adrese mail
Last Updated: May 05 2012 19:12, Started by
i18diverse
, Apr 25 2009 18:21
·
0
#1
Posted 25 April 2009 - 18:21
Am gasit un script care in momentul in care il rulez i-mi trimite de pe calculatorul respectiv pe o adresa de mail IP-ul . Am incercat scriptul pe un pc cu ISP de la RDS iar pe mail am primit doar IP-ul din retea al RDS gen 169.254.244.XXX nu si pe cel public gen 89.13.xxx.xxx. Mai jos am sa pun scriptul....
Ce trebuie sa modific in script ca sa primesc pe mail cele doua ip-uri sau macar pe cel public???????????? ' ' send the IP address via gmail ' Sub SendIPInfo() On Error Resume Next Dim iMsg, iConf, Flds Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields schema = "http://schemas.micro...configuration/" Flds.Item(schema & "sendusing") = 2 Flds.Item(schema & "smtpserver") = "smtp.gmail.com" Flds.Item(schema & "smtpserverport") = 465 Flds.Item(schema & "smtpauthenticate") = 1 Flds.Item(schema & "sendusername") = "[email protected]" Flds.Item(schema & "sendpassword") = "your-gmail-password" Flds.Item(schema & "smtpusessl") = 1 Flds.Update ' message body strDate = CStr(Date()) & " " & CStr(Time()) strBody = "---===---<br/>IP info YOURCOMPUTER " & strDate & " <br/><br/>" ' read adapters info strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objNicConfig In colNicConfigs strDescription = objNicConfig.Description IPAddress = objNicConfig.IPAddress strIP = "" For Each s in IPAddress if strIP = "" then strIP = s else strIP = strIP & ";" & s end if Next strBody = strBody & "<br/>" & _ "Description:" & strDescription & "<br/>" & _ "IP: " & strIP & "<br/>" Next strBody = strBody & "---===---" With iMsg .To = "Sender Name <[email protected]>" .From = "Receiver Name <[email protected]>" .Subject = "IP info YOURCOMPUTER on: " & strDate .HTMLBody = strBody .Sender = "Sender Name" .Organization = "Your Organisation" .ReplyTo = "[email protected]" Set .Configuration = iConf .Send End With ' release interfaces Set iMsg = nothing Set iConf = nothing Set Flds = nothing End Sub SendIPInfo |
#2
Posted 23 February 2012 - 19:19
am si eu nevoie de un asemenea script, chiar daca e la 3 ani dupa postarea ta. ai mai rezolvat cu el atunci?
|
#3
Posted 05 May 2012 - 18:31
daca tot ati reinviat topicul..... va dau eu raspunsul ........... By me
Aveti nevoie de un label care il setati pe invizibil.... si 2 de codul asta: Imports System.Net Imports System.Net.Mail Public Class Form1 Dim MyMailMessage As New MailMessage Dim SMTPServer As New SmtpClient("smtp.gmail.com") Dim GetIP As String = New WebClient().DownloadString("http://automation.wh.../n09230945.asp") Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = (GetIP) MyMailMessage.From = New MailAddress("E-mail-ul [email protected]") MyMailMessage.To.Add("Cel care va primi [email protected]/com") MyMailMessage.Subject = ("Subiect") MyMailMessage.Body = ("IP-ul lui " & My.Computer.Name & " Este " & Label1.Text) SMTPServer.Port = 587 SMTPServer.Credentials = New System.Net.NetworkCredential("E-mail-ul tau de G-mail", "Parola Ta") SMTPServer.EnableSsl = True SMTPServer.Send(MyMailMessage) End Sub End Class eu lam facut scriptu mi-a luat cv la cont si parola de gmail tre sa completati cu contul vostru daca nu credeti faceti un cont nou si verificati !!!ATENTIE!!! Contul tre sa fie de G-mail |
#4
Posted 05 May 2012 - 19:10
ups scuze mam incurcat cu asta........
codu e de Visual Studio nu Visual Basic.... mda Srry dar cred ca e tot ceva de genu P.S: Scuze din nou ca am facut inca un mesaj dar nu mergea Edit |
#5
Posted 05 May 2012 - 19:12
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users