Versionen im Vergleich

Schlüssel

  • Diese Zeile wurde hinzugefügt.
  • Diese Zeile wurde entfernt.
  • Formatierung wurde geändert.

...

Code in WinIBW2 (Makro/VBScript)

Codeblock
Sub HBExPe()
'********************************************************************
	On error resume next
	Application.ActiveWindow.Command "k", False
	Application.ActiveWindow.Title.Find "7001", False, False, False
	Application.ActiveWindow.Title.EndOfField
	Application.ActiveWindow.Title.InsertText "xp"
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "4801 "
	Application.ActiveWindow.Title.LineDown
	Application.ActiveWindow.Title.EndOfField
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "7109 "
	Application.ActiveWindow.Title.LineUp 3
	Application.ActiveWindow.Title.EndOfField
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "5301 "
End Sub


Code in WinIBW3 (Javascript)

...