Imports System.Timers
Importe System.IO
Importe System.Net
Allgemeine Kategorie CSATService
Privates t als Timer = nichts
Geschützt heben VorOnStart auf (ByVal args () als Schnur)
'Code hier addieren, um Ihren Service zu beginnen. Diese Methode sollte Sachen einstellen
'in der Bewegung also in Ihrem Service kann seine Arbeit erledigen.
t.Start ()
Unterseeboot beenden
Geschützt hebt VorOnStop auf ()
'Code hier addieren, um jede mögliche Zerlegung durchzuführen, die notwendig ist, Ihren Service zu stoppen.
t.Stopp ()
Unterseeboot beenden
Geschütztes Vor t_Elapsed (ByVal Absender als System.Object, ByVal e als System.Timers.ElapsedEventArgs)
Versuch
Schwaches copyFile als FileInfo = neues FileInfo („E:\Test\CTA-Test 2010.06.30.mdb“)
copyFile.CopyTo („\ \ IP address \ TestLAN \ CTA Test.mdb“, zutreffend)
Fang ex als Ausnahme
System.Diagnostics.EventLog.WriteEntry („Anwendung“, „kopieren ausfallen: “ u. ex. Message.ToString)
Enden-Versuch
Enden-Unterseeboot
Allgemeines Vorneues ()
'Dieser Anruf wird vom Windows-Form-Entwerfer gefordert.
InitializeComponent ()
'Jede mögliche Initialisierung addieren nachdem der InitializeComponent () Anruf.
t = neuer Timer (10000)
AddHandler t.Elapsed, neues System.Timers.ElapsedEventHandler (AddressOf t_Elapsed)
Enden-Unterseeboot
Enden-Kategorie
|