ScriptControl Userlib (OpenSource) beta 2

[Kiffi]

hier noch ein kleiner Code, um eine Webseite mittels
XMLHTTP in eine Stringvariable zu laden:

Code: Alles auswählen

Procedure.s GetHtmlTextVbs(URL.s)
  
	Protected VBS$
  
	VBS$ + "Dim objXMLHTTP" + #CrLf$
	VBS$ + "Set objXMLHTTP = CreateObject(" + #DQUOTE$ + "Microsoft.XMLHTTP" + #DQUOTE$ + ")" + #CrLf$
	VBS$ + "objXMLHTTP.Open " + #DQUOTE$ + "GET" + #DQUOTE$ + ", " + #DQUOTE$ + URL.s + #DQUOTE$ + ", False" + #CrLf$
	VBS$ + "objXMLHTTP.Send" + #CrLf$
	VBS$ + "HtmlText = objXMLHTTP.responseText" + #CrLf$
	VBS$ + "Set objXMLHTTP = Nothing" + #CrLf$
  
	ProcedureReturn VBS$
  
EndProcedure

SCtr_SetLanguage("VBScript")
SCtr_SetTimeOut(20000)
SCtr_AddCode(GetHtmlTextVbs("http://www.purebasic.com"))
HtmlText.s = SCtr_EvalStr("HtmlText")
If HtmlText
  MessageRequester("HtmlText", HtmlText)
EndIf

Grüße ... Kiffi

[ts-soft]

Noch hab ich meinen neuen Monitor nicht, mal sehen ob dann die
MessageBox auf den Bildschirm paßt

Ansonsten, danke Peter, kann man brauchen (bis auf die MsgBox )

[hussi]

Sieht sehr interessant aus.

Wäre es damit auch Möglich, auf einer Webseite einen Link direkt anzuspringen ohne die Maus bewegen zu müssen?

VG Hussi

[dysti]

Hallo TS-SOFT,
oh Gott, das hatte ich ja ganz aus den Augen verloren. Werde es ausprobieren und berichten.

[Thorsten1867]

Ist es möglich, die Programmausführung anzuhalten, solange das Script ausgeführt wird bzw. festzustellen, wann es beendet wurde?

[ts-soft]

Nur ein Delay setzen, das solange wartet bis Timeout auftritt. Was anderes
fällt mir gerade nicht ein.

[marco2007]

Hi,

ich bekomme bei Kiffi`s Code ( http://www.purebasic.fr/german/viewtopi ... hlight=vbs ) einen IMA in folgender Zeile:

Code: Alles auswählen

ProcedureDLL SCtr_SetLanguage(Language.s)
  ProcedureReturn ScriptControl\put_Language(Language)
EndProcedure

Hat jemand eine Ahnung, was ich ändern muss?

Include habe ich von MK-Soft...

lg
Marco

[mk-soft]

ScriptControl wird nicht als Include verwendet, sonder als LIB.
Einfach aus den Odner UserLib... die Datei ScriptControl nach Purebasic kopieren (Bei mir : D:\Winapp\PureBasic420\PureLibraries\UserLibraries)

Ich habe die LIB für PB v4.20 mal neu mit Tailbite erstellt. Hatte aber bis jetzt mit der alten LIB keine Probleme gehabt.
- UserLIB4xx - PB v4.01 .. v4.10
- UserLIB420 - PB v4.20

Noch ein paar Examples und den aktuellen VariantHelper_Include hinzugepackt.

Alles Gute
Michael

Download: http://home.arcor.de/m_kastner/MyCodes/ ... ptControl/

[marco2007]

ScriptControl wird nicht als Include verwendet, sondern als LIB.

...oh, dachte die Source kann man einfach includen.

Auf jeden Fall: DANKE!!! Jetzt funkt`s!!

[Karl]

Hallo,

ich habe Schwierigkeiten mit dem ScriptControl.

Wenn ich SAP-Daten via RFC über das ScriptControl hole, läuft alles prima.

Wenn ich allerdings ein SAPGuiScript laufen lassen möchte, dann passiert nix. Das Script selbst läuft problemlos über den WSH bzw. als VBS-Datei. Was könnte die Ursache dafür sein?

Gruß Karl