Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

TarVK / SimpleArithmeticParser.js
Created August 11, 2020 23:41
Wrote a very simple arithmetic parser in javascript to test the general techique
* All helper code *
* Tokenizes the input text using the given rules
* @param {string} text The text to tokenize
* @param {{[key: string]: RegExp}} rules The rules
* @returns {{type: string, value: string, index: number}[]} The tokens
wqweto / mdJson.bas
Last active January 13, 2024 18:43
JSON parsing/dumping functions with JSON path support for VB6 and VBA
' JSON parsing and dumping functions with JSON path support
Option Explicit
DefObj A-Z
Private Const MODULE_NAME As String = "mdJson"
remoharsono / Excel VBA - Send GET Request
Created August 28, 2014 05:51
Using Excel VBA to Send HTTP GET Request to Web Server
Private Sub cmdKirimGET_Click()
Dim strResult As String
Dim objHTTP As Object
Dim URL As String
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://localhost/search.php"
objHTTP.Open "GET", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.send ("keyword=php")
wb := WBGet()
MsgBox % wb.document.documentElement.innerHTML
WBGet(WinTitle="ahk_class IEFrame", Svr#=1) { ; based on ComObjQuery docs
static msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
, IID := "{332C4427-26CB-11D0-B483-00C04FD90119}" ; IID_IWebBrowserApp
SendMessage msg, 0, 0, Internet Explorer_Server%Svr#%, %WinTitle%
if (ErrorLevel != "FAIL") {
lResult:=ErrorLevel, VarSetCapacity(GUID,16,0)