Я не верю, что захват ip может выполняться локально без библиотеки, но если вы не возражаете против вызова API, вы можете использовать ip-api.com
'Query location data
Dim Req As HttpWebRequest
Dim Ret As HttpWebResponse = Nothing
Dim SR As StreamReader
Req = DirectCast(WebRequest.Create("http://ip-api.com/json"), HttpWebRequest)
Ret = DirectCast(Req.GetResponse(), HttpWebResponse)
SR = New StreamReader(Ret.GetResponseStream())
Dim Raw As String = Nothing
Raw = SR.ReadToEnd()
Dim JavaScriptSerialization As New JavaScriptSerializer()
Dim ipdata_object As New IPData()
ipdata_object = JavaScriptSerialization.Deserialize(Raw, ipdata_object.GetType)
dim ip_address as string = ipdata_object.query.tostring()
IPData Class
[111 ]Что касается ведения журнала, в зависимости от того, что вы хотите использовать, Mysql, CSV, Flatfile и т. Д.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'SAVE FUNCTION
Dim LogString as String = "User " + Username + " Attempted to login from " + ip_address + " Successfully/Failed"
My.Computer.FileSystem.WriteAllText("C://testfile.txt", inputString, True)
End Sub
Я думаю, что нет никакой опции больше, чем использование Критериев:: ПОЛЬЗОВАТЕЛЬСКИЙ или делающий пользовательский SQL-запрос как это:
$con = Propel::getConnection(DATABASE_NAME);
$sql = "SELECT foobar.* FROM foobar WHERE created_at > DATE_SUB(curdate(), INTERVAL 1 MONTH)";
$stmt = $con->prepare($sql);
$stmt->execute();
$books = FoobarPeer::populateObjects($stmt);
Поэтому Продвиньте попытки быть агностиком DBMS, помочь миграции путем выполнения простого изменения значения конфигурации, таким образом, она не имеет никакого DBMS, определенные функции встроили.
просто замените mysql код даты, который Вы используете там с предрасчетной php переменной, которая уже имеет ту дату в нем.
т.е.
$monthAgo = '2008-10-03';
$c = new Criteria
$c->add(FoobarPeer::CREATED_AT, $monthAgo, Criteria::GREATER_THAN);
очевидно, необходимо динамично вычислить дату в php, а не трудно кодирование его, но Вы получаете изображение.