Remote Control inventory windows administration license management dameware hyena netzwerktool netzwerktools Inventarisierung centralization of administration local and global group management User management  Domain management client dokumentenmanagement system dokumenten-management-system dokumentenverwaltung dms documentmanagementsystem management workstation management profile management rights management share management password management Hardware Inventur Software Lizenzkontrolle Lizenz Inventory Inventarisierung Inventur Inventar Lizenzmanagement Lizenzen verwalten Software Hardware Netzwerk Scan Netzwerkscan Screenshot Capture Tool Programm kontrolle remotecontrol vnc pc-anywhere dameware tivoli remote system management citrix hyena ari advancedremoteinfo freeware download active directory adsi windows nt 2000 xp 2003 .net dotnet terminal server administration administrator passwort zurücksetzen reset screenshot Inventarisierung Inventur Lizenzmanagement Inventar Lizenz Software Softwareinventarisierung Hardware Controlling Webdesign Lizenzverwaltung Netzwerk Revision lan inspector inventory licenses licensemanagement inventarisieren installation service prozesse programme tool windows-nt windows-xp windows-2000 server root linux admin user reset reboot rebooten neustart automatisch automatisieren kostenlos download freeware shareware apple iphone
Blog Products Services Links About Remote Control apple iphone Inventarisierung Hardware Inventur Software Lizenzkontrolle Lizenz Inventory Inventarisierung Inventur Inventar Lizenzmanagement Lizenzen verwalten Software Hardware Netzwerk Scan Netzwerkscan Shreenshot Capture Tool Programm kontrolle remotecontrol vnc pc-anywhere dameware tivoli hyena active directory adsi windows nt 2000 xp 2003 .net dotnet terminal server administration administrator passwort zurücksetzen reset screenshot Inventarisierung Inventur Remote Control inventory windows dokumentenmanagement system dokumenten-management-system dokumentenverwaltung dms documentmanagementsystem  administration license management dameware hyena netzwerktool netzwerktools Inventarisierung centralization of administration local and global group management User management  Domain management client management workstation management profile management rights management share management password management Hardware Inventur Software Lizenzkontrolle Lizenz Inventory Inventarisierung Inventur Inventar Lizenzmanagement Lizenzen verwalten Software Hardware Netzwerk Scan Netzwerkscan Screenshot Capture Tool Programm kontrolle remotecontrol vnc pc-anywhere dameware tivoli remote system management citrix hyena ari advancedremoteinfo freeware download Lizenzmanagement Inventar Lizenz Software Softwareinventarisierung Hardware Controlling Webdesign Lizenzverwaltung Netzwerk Revision lan inspector inventory licenses licensemanagement inventarisieren installation service prozesse programme tool windows-nt windows-xp windows-2000 server root linux admin user reset reboot rebooten neustart automatisch automatisieren kostenlos download freeware sharewareDeutschEnglish  
★★★★★  — MasterBootRecord.de -


Google
Web MasterBootRecord.de

Aktuelle Blog-Einträge
ICMPTX (IP-over-ICMP) HOWTO
KLS SOFT - WSCC - Windows System Control Center
PeaZip - Free file and archive manager
http://www.peazip.org/
http://kitty.9bis.com
Connectify for Windows - Turn your Laptop or Smartphone into a Secure Wi-Fi Hotspot
http://connectify.me/
Your Hotspot, Your Way - Connectify
Der RegExp-Evaluator - RegExp-Tutorial

IT-News
Arm durch Klimawandel: Tage mit extremer Hitze in frühester Kindheit bedeuten weniger Einkommen als Erwachsener
Star Wars ? Die letzten Jedi: Die Space-Operette geht weiter
Linux 4.15: Feinschliff am Netzwerk-Support und IP-Verbindungen via Thunderbolt
Bundestag: CDU/CSU hält an der Vorratsdatenspeicherung und am Facebook-Gesetz fest
Facebook will mehr Werbeumsätze in einzelnen Ländern versteuern
Google: Werbebetrüger kassierten 1,27 Milliarden Dollar pro Jahr
DisplayHDR: Neuer VESA-Standard soll HDR-Display-Kauf vereinfachen
Fossil Q Explorist (3. Gen) im Test: schwere Smartwatch ohne Pulssensor
eco-Konzept für Domain-Daten: Das offene Whois vor dem Aus





        
Sorry, this Website isn't available in english.
If you want to use the Altavista translation
service, click here...

Monatstipp bei VBArchiv Bei Webcheck handelt es sich um zwei
nützliche Funktionen, mit denen eMail-
und Web-Adressen, nach allen Regeln der
Kunst auf ihre Gültigkeit überprüft werden
können.




Sie können sich die BAS-Datei inkl. eines Demo-Projekts hier herunterladen...

Hier sehen Sie den Quellcode des Moduls:

'Prüft eine EMail-Adresse auf Gültigkeit
Public Function Check_Email_Adress(sEMailAdr As String) _
  As Boolean

  Dim bGoodAdress As Boolean
  Dim sTopLevelDomainsArray() As String
  Dim sTopLevelDomains As String
  Dim eMailSplices() As String
  Dim i As Long

  bGoodAdress = False
  sEMailAdr = LCase(sEMailAdr)

  sTopLevelDomains = "com,net,edu,arpa,org,gov,museum," + _
    "biz,info,pro,name,aero,coop,ac,ad,ae,af,ag,ai,al," + _
    "am,an,ao,aq,ar,as,at,au,aw,az,ba,bb,bd,be,bf,bg," + _
    "bh,bi,bj,bm,bn,bo,br,bs,bt,bv,bw,by,bz,ca,cc,cd," + _
    "cf,cg,ch,ci,ck,cl,cm,cn,co,cr,cu,cv,cx,cy,cz,de," + _
    "dj,dk,dm,do,dz,ec,ee,eg,eh,er,es,et,fi,fj,fk,fm," + _
    "fo,fr,ga,gd,ge,gf,gg,gh,gi,gl,gm,gn,gp,gq,gr,gs," + _
    "gt,gu,gw,gy,hk,hm,hn,hr,ht,hu,id,ie,il,im,in,io," + _
    "iq,ir,is,it,je,jm,jo,jp,ke,kg,kh,ki,km,kn,kp,kr," + _
    "kw,ky,kz,la,lb,lc,li,lk,lr,ls,lt,lu,lv,ly,ma,mc," + _
    "md,mg,mh,mk,ml,mm,mn,mo,mp,mq,mr,ms,mt,mu,mv,mw," + _
    "mx,my,mz,na,nc,ne,nf,ng,ni,nl,no,np,nr,nu,nz,om," + _
    "pa,pe,pf,pg,ph,pk,pl,pm,pn,pr,ps,pt,pw,py,qa,re," + _
    "ro,ru,rw,sa,sb,sc,sd,se,sg,sh,si,sj,sk,sl,sm,sn," + _
    "so,sr,st,sv,sy,sz,tc,td,tf,tg,th,tj,tk,tm,tn,to," + _
    "tp,tr,tt,tv,tw,tz,ua,ug,uk,um,us,uy,uz,va,vc,ve," + _
    "vg,vi,vn,vu,wf,ws,ye,yt,yu,za,zm,zr,zw"

  sTopLevelDomainsArray = Split(sTopLevelDomains, ",")

  '@-Zeichen prüfen
  eMailSplices = Split(sEMailAdr, "@")
  If UBound(eMailSplices) <> 1 Then
    Check_Email_Adress = False
    Exit Function
  End If

  '. prüfen
  eMailSplices = Split(eMailSplices(1), ".")
  If UBound(eMailSplices) < 1 Then
    Check_Email_Adress = False
    Exit Function
  End If

  'TopLevel-Domain prüfen
  For i = 0 To UBound(sTopLevelDomainsArray)
    If eMailSplices(UBound(eMailSplices)) = _
     sTopLevelDomainsArray(i) Then
      bGoodAdress = True
      Exit For
    End If
  Next

  Check_EMail_Adress = bGoodAdress
End Function


'Prüft eine Web-Adresse auf Gültigkeit Public Function Check_Web_Adress(sWebAdress As String, _ Optional bCheckForProtocol As Boolean = False) As Boolean Dim bGoodAdress As Boolean Dim sTopLevelDomainsArray() As String Dim sTopLevelDomains As String Dim sProtocolsArray() As String Dim sProtocols As String Dim i As Long Dim myProtocol As String Dim Splices() As String Dim Splices2() As String Dim Splices3() As String Dim Splices4() As String Dim myServer As String Dim isIPAdress As Boolean sWebAdress = LCase(sWebAdress) bGoodAdress = False sTopLevelDomains = "com,net,edu,arpa,org,gov,museum," + _ "biz,info,pro,name,aero,coop,ac,ad,ae,af,ag,ai,al," + _ "am,an,ao,aq,ar,as,at,au,aw,az,ba,bb,bd,be,bf,bg," + _ "bh,bi,bj,bm,bn,bo,br,bs,bt,bv,bw,by,bz,ca,cc,cd," + _ "cf,cg,ch,ci,ck,cl,cm,cn,co,cr,cu,cv,cx,cy,cz,de," + _ "dj,dk,dm,do,dz,ec,ee,eg,eh,er,es,et,fi,fj,fk,fm," + _ "fo,fr,ga,gd,ge,gf,gg,gh,gi,gl,gm,gn,gp,gq,gr,gs," + _ "gt,gu,gw,gy,hk,hm,hn,hr,ht,hu,id,ie,il,im,in,io," + _ "iq,ir,is,it,je,jm,jo,jp,ke,kg,kh,ki,km,kn,kp,kr," + _ "kw,ky,kz,la,lb,lc,li,lk,lr,ls,lt,lu,lv,ly,ma,mc," + _ "md,mg,mh,mk,ml,mm,mn,mo,mp,mq,mr,ms,mt,mu,mv,mw," + _ "mx,my,mz,na,nc,ne,nf,ng,ni,nl,no,np,nr,nu,nz,om," + _ "pa,pe,pf,pg,ph,pk,pl,pm,pn,pr,ps,pt,pw,py,qa,re," + _ "ro,ru,rw,sa,sb,sc,sd,se,sg,sh,si,sj,sk,sl,sm,sn," + _ "so,sr,st,sv,sy,sz,tc,td,tf,tg,th,tj,tk,tm,tn,to," + _ "tp,tr,tt,tv,tw,tz,ua,ug,uk,um,us,uy,uz,va,vc,ve," + _ "vg,vi,vn,vu,wf,ws,ye,yt,yu,za,zm,zr,zw" sTopLevelDomainsArray = Split(sTopLevelDomains, ",") sProtocols = "http,ftp,news,gopher,telnet" sProtocolsArray = Split(sProtocols, ",") Splices = Split(sWebAdress, "://") If UBound(Splices) > 0 Then myProtocol = Splices(0) End If 'Protkokoll prüfen If bCheckForProtocol = True Then For i = 0 To UBound(sProtocolsArray) If myProtocol = sProtocolsArray(i) Then bGoodAdress = True Exit For End If Next If bGoodAdress = False Then Check_Web_Adress = False Exit Function End If End If If UBound(Splices) > 0 Then myProtocol = myProtocol + " " End If sWebAdress = Mid(sWebAdress, Len(myProtocol) + 1, _ Len(sWebAdress)) Splices2 = Split(sWebAdress, "/") Splices3 = Split(Splices2(0), ":") myServer = Splices3(0) Splices4 = Split(myServer, ".") If UBound(Splices4) = 3 Then 'Prüfen, ob IP-Adresse isIPAdress = True For i = 0 To 3 If IsNumeric(Splices4(i)) Then If Splices4(i) > 255 Then isIPAdress = False End If Else isIPAdress = False End If Next If isIPAdress = True Then Check_Web_Adress = True Exit Function End If End If 'TopLevel-Domain prüfen For i = 0 To UBound(sTopLevelDomainsArray) If Splices4(UBound(Splices4)) = _ sTopLevelDomainsArray(i) Then bGoodAdress = True Exit For End If Next Check_Web_Adress = bGoodAdress End Function


 
Remote Control Inventarisierung Hardware apple iphone Inventur Software Lizenzkontrolle Lizenz Inventory Inventarisierung Inventur Inventar Lizenzmanagement Lizenzen dokumentenmanagement system dokumenten-management-system dokumentenverwaltung dms documentmanagementsystem  verwalten Software Hardware Netzwerk Scan Netzwerkscan Shreenshot Capture Tool Programm kontrolle remotecontrol vnc pc-anywhere dameware tivoli hyena active directory adsi windows nt 2000 xp 2003 .net dotnet terminal server administration administrator passwort zurücksetzen reset screenshot Inventarisierung Inventur Lizenzmanagement Inventar Lizenz Software Softwareinventarisierung Hardware Controlling Webdesign Lizenzverwaltung Netzwerk Revision lan inspector inventory licenses licensemanagement inventarisieren installation service prozesse programme tool windows-nt windows-xp windows-2000 server root linux admin user reset reboot rebooten neustart automatisch automatisieren kostenlos download freeware shareware
MasterBootRecord.de V 2.1 © 1998-2009 Deutsch English  home :: products :: services :: links :: about