Keskustelu: Ohjelmointikysymykset: PHP, VB.NET: HttpSendRequestA

'Form1
Private Declare Function GetDriveType Lib "kernel32" _
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Dim oHTTP

Private Sub Form_Load()

   TsekkaaOikeudet

   'testi
   MsgBox "jee"
   '...

End Sub

Private Sub TsekkaaOikeudet()

    If Not Internet.Connected Then
        MsgBox "Ei Internet-yhteyttä!"
        End
    End If

    Dim root As String
    root = Left(App.Path, 3)

    Dim msg As String

    If GetDriveType(root) <> 2 Then
        MsgBox "EI KÄYTTÖOIKEUTTA!"
        End
    End If

    Dim driveletter As String
    driveletter = UCase(Left(root, 1))

    Select Case driveletter
        Case "A", "B"
            msg = Space(25) & "EI KÄYTTÖOIKEUTTA!"
        Case Else
    End Select

    Dim fullpath As String
    fullpath = root & "mydrive.dat"

    If Dir(fullpath) <> "" Then
        Kill fullpath
    End If

    Shell "cmd /C dir root >" & fullpath, vbHide

JumpBack:

    On Error Resume Next
    flen& = FileLen(fullpath)

    If Err <> 0 Then
        Err.Clear
        On Error GoTo 0
        GoTo JumpBack
    End If

    Do While FileLen(fullpath) = 0
    DoEvents: Loop

    Dim rootdata As String
    Open fullpath For Input As #1

    Do While Not LOF(1)

        Input #1, rootdata
        If InStr(rootdata, "Aseman sarjanumero on") > 0 Then
            rootdata = Trim(Replace(rootdata, _
            "Aseman sarjanumero on", ""))
            Exit Do
        End If

    Loop

    Close #1

    Shell "cmd /C del " & fullpath, vbHide

    Set oHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = "http://www.palvelimesi.fi/kansio/tsekkaa.php?lisenssi=" & rootdata
    oHTTP.Open "POST", URL, False

     oHTTP.setRequestHeader "User-Agent", _
    "Mozilla/5.0 (Windows; U; Windows NT 6.1; fi; rv:1.9.0.10) " + _
    "Gecko/2009042316 Firefox/3.0.10 (.NET CLR 4.0.20506)"

    oHTTP.setRequestHeader "Content-Type", "text/xml"
    oHTTP.send
    Dim response As String
    response = oHTTP.responseTEXT
    Set oHTTP = Nothing

    If InStr(response, vbCrLf) > 0 Then
       Dim temp() As String
       temp = Split(response, vbCrLf)
       response = temp(0)
       Erase temp
    End If

    If Trim(response) = "valid license" Then
        Exit Sub
    ElseIf Trim(response) = "nolicense" Then
        msg = Space(25) & "EI KÄYTTÖOIKEUTTA!"
    ElseIf Trim(response) = "expired" Then
        msg = Space(20) & "KÄYTTÖOIKEUS PÄÄTTYNYT!"
    ElseIf InStr(response, "daysleft") > 0 Then
        Dim daysleft As String
        daysleft = Trim(Replace(response, "daysleft", ""))
        MsgBox "KÄYTTÖOIKEUS VANHENEE " & daysleft & " PÄIVÄN KULUTTUA!"
        Exit Sub
    ElseIf Trim(response) = "" Then
        msg = Space(25) & "PALVELIN EI VASTAA"
    End If

    If msg <> "" Then
        Dim msgresult As Long
        msg = msg & vbCrLf & vbCrLf & _
        "Tahdotko siirtyä ohjelman toimittajan Internet sivustolle?"
        msgresult = MsgBox(msg, vbYesNo, Me.Caption)
        If msgresult = 6 Then
            Shell "explorer http://www.palvelimesi.com/sivustosi", vbNormalFocus
        End If
        End
    End If

End Sub

<?php //tsekkaa.php (www.palvelimelle)

   if(!isset($_POST["lisenssi"]))
   {
     $serial = $_GET["lisenssi"];
     $mysql_host = "mysqlpalvelimesi_osoite";
     //(web-hotelleissa usein: localhost)
     $mysql_user = "käyttäjätunnuksesi";
     $mysql_password = "salasanasi";
     $mysql_database = "tietokannan_nimi";
     $conn = mysql_connect($mysql_host, $mysql_user,
     $mysql_password) or die(mysql_error());
     mysql_select_db($mysql_database, $conn) or die(mysql_error());
     $sql = "SELECT * FROM lisenssit WHERE serial='$serial'";
     $result = mysql_query($sql, $conn) or die(mysql_error());

     if (mysql_fetch_row($result)==null)
     {

       echo "nolicense";
     }
     else
     {
       $today =  date( "Y-m-d H:m:s");

        if  (mysql_result($result, 0, "expires") == null ||
        mysql_result($result, 0, "expires") == "0000-00-00 00:00:00" )
        {
           $datex =  strtotime(date("Y-m-d H:m:s", strtotime($today)) . "+1 year");
           $datex = date('Y-m-d', $datex);
           $sql = "UPDATE lisenssit SET expires='$datex' WHERE serial='$serial'";
           $result2 = mysql_query($sql, $conn) or die(mysql_error());
           if($result2)
           {
              echo "valid license";
           }
        }
        else
        {
           $expiration = mysql_result($result, 0, "started");
           $fullDays = date_diff($today, $expiration);
           if ((int)$fullDays <= 0)
           {
              echo "expired";
           }
           elseif((int)$fullDays > 0 && (int)$fullDays < 11)
           {
              echo "daysleft" + $fullDays;
           }
           elseif((int)$fullDays > 10)
           {
              echo "valid license";
           }
         }
      }
   }

   function date_diff($start, $end="NOW")
   {
      $sdate = strtotime($start);
      $edate = strtotime($end);

      $time = $edate - $sdate;
      if($time>=86400) {
         $pday = ($edate - $sdate) / 86400;
         $preday = explode('.',$pday);
         $timeshift = $preday[0];
      }
      return $timeshift;
   }
?>