Hei. Nå er egentlig ikke jeg en "leecher" til vanlig men dette er et engangstilfelle. Jeg har et lite "program" i batch som jeg holder på å utvikle. Nå ønsker jeg å gi ut en demo av dette og da vil jeg ha kontroll på at de som bruker demoen kun får bruke den til jeg sier stopp og ikke lengre. Dette for å gi dem en smakebit av resultatet.
Batch programmet er kryptert med "Quick Batch File Compiler av abyss" og .vb filen er lagt inn i den. Kunne noen skrive om .vb en under så den bare avslutter seg selv når jeg "sier stopp" (opdaterer versjonen).
Tekstfilen den leser er bare "0.5".
Batch programmet er kryptert med "Quick Batch File Compiler av abyss" og .vb filen er lagt inn i den. Kunne noen skrive om .vb en under så den bare avslutter seg selv når jeg "sier stopp" (opdaterer versjonen).
Tekstfilen den leser er bare "0.5".
Kode
' Benyttes for å åpne nettleservinduet
Set oShell = WScript.CreateObject("WSCript.Shell")
Version = HTTPGetText("http://***.com/Versjon.txt")
If Version = "0.5" Then
' Du kan godt fjerne følgende linje, om ønskelig
Else
If MsgBox("Version " & Version & " har kommet ut. Vil du laste ned denne?", _
vbYesNo + vbQuestion, "Ny versjon") = vbYes Then
oShell.Run "http://home.no.net/yoshigut/versjon/hente.txt"
End if
End If
' *** Hjelpefunksjoner ***
Function HTTPGetText(URL)
Set oHTTP = WScript.CreateObject("Microsoft.XmlHttp")
oHTTP.open "GET", URL, false
oHTTP.send ""
' Returner tekstrespons (en kan også returnere XML-dokumentet)
HTTPGetText = oHTTP.responseText
End Function
' Takk til aadnk @ www.diskusjon.no for denne versjonskontrollen :)
