All pastes #263343 Raw Edit

Someone

public text v1 · immutable
·published 2006-12-01 13:07 UTC
rendered paste body
Dim thunderrtformdc As Long, sstabctlwndclass As Long, thunderrttextbox As Long
thunderrtformdc = FindWindow("thunderrt6formdc", vbNullString)
sstabctlwndclass = FindWindowEx(thunderrtformdc, 0&, "sstabctlwndclass", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, 0&, "thunderrt6textbox", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, thunderrttextbox, "thunderrt6textbox", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, thunderrttextbox, "thunderrt6textbox", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, thunderrttextbox, "thunderrt6textbox", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, thunderrttextbox, "thunderrt6textbox", vbNullString)
Call SendMessageByString(thunderrttextbox, WM_SETTEXT, 0&, "The New Text")