• Home
 · 
• Miscellaneous
 · 
• Macro Scroll Code

Macro Scroll Code

Macro Scroll Code

Rate Macro Scroll Code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Dim l005E As Variant   ' editor is the formname
 l0036$ = editor.Chat.Text  'chat is the macro window
 ChatSend ("            ../) Incoming (\..")     'text1 is the macro name
 Pause (1.5)
 If Mid(l0036$, Len(l0036$), 1) <> Chr$(10) Then
 l0036$ = l0036$ + Chr$(13) + Chr$(10)
 End If
 Do While (InStr(l0036$, Chr$(13)) <> 0)
 ChatSend (" " & Mid(l0036$, 1, InStr(l0036$, Chr(13)) - 1))
 l0036$ = Mid(l0036$, InStr(l0036$, Chr(13) + Chr(10)) + 2)
 pause .5
 Loop
 ChatSend ("Macroshop name " & "- " & editor.Text1.Text)