Homepage

Produktkatalog

1.) AERO-COVERS - grosse LAGERRÄUMUNG !!

11 ) Klassik Covers f Gartenmöbel

12. ) Premium Covers Qualität

3 ) ROBUSTA unverwüstl. Covers

4 ) KLARSICHT Glasklare Hauben

AERO-COVERS - Lagerräumung wegen Herbst

Bagger & Autokrane Portale Germany

Garden - Programm Schutzhauben - preiswert gut !

Lounge Covers ca. 30 verschiedene Modelle & Größen

Lounge Hauben 7 Modelle versch. Maße atmungsaktiv

Material Übersicht - Standard & Lager-Box Ware

OXFORD ! LAGERWARE Verkauf Oxford 600D - Store & Lager in 8 Tage

OXFORD 600D - 30 Hauben rechteckig für Lounge Gruppen

PRÄMIUM Plus light atmungsaktiv by scl latza cologne

SHOP Covers nach Warengruppen ca 900 Stck AERO

TEAK SAFE , das ges. Programm lieferbar, bitte anfragen

Verkaufs- und Lieferbedingungen

Datenschutzerklärung


Schutzhauben Vertrieb
Ingrid Latza
Am Courts Garten 16
51143 Köln
Tel: 02203 84685
Fax: 02203 87655
JUPITER-SCL@t-online.de

Steuernummer
216/5115/0127


Premium Plus Schutzhüllen

3 ) ROBUSTA unverwüstl. Covers


ROBUSTA- Abdeckhauben - Die unverwüstliche Abdeckhaube aus einem grünen, beschichteten Gewebe für höchste Ansprüche - dunkelgrün auch in grau + als Sonderanfertigung,Schutzhüllen

Download Material-Katalog >> ** REM ***** BASIC ***** Sub Doms dim Anz, Tiefe, faile, id as integer dim UrlRow, StartUrl as integer Dim oDoc As Object Dim oSheet, oSheets As Object dim oObj as object dim IE, IE2 as object dim tested, found as integer dim urlCol as string dim cell as object dim url as string dim ieDoc as object dim text as string dim speed as integer dim hwndID as long on error goto errorHandler oDoc = fnOpenDoc("D:\wagner\doms.ods") oSheet = oDoc.Sheets (0) urlCol = 1 ' inputbox( "Spalte für Urls eingeben: ", "(1. Spalte = 0)" , 0) startURL = inputbox( "Zeilennummer für Url eingeben: ","Auto-Start bei 3000 (1. Zeile = 0)" , 0) Anz = inputbox("Anzahl: ", 13138, 13138) speed = inputbox("Geschwindigkeit 1000= schnell bis 5000= sehr langsam: ", 3000, 3000) if urlRow = -1 or Anz = -1 then exit sub oObj = createUnoService( "com.sun.star.bridge.OleObjectFactory") failed = 0 found = 0 urLRow = startURL url = oSheet.getCellByPosition(urlCol, UrlRow).string while url <> "" and urlrow < StartUrl + Anz url = "http://" & url IE = oObj.createInstance("InternetExplorer.Application") with IE .Visible = true .Resizable = True .Width = 800 .Height = 570 .Left = 0 .Top = 0 .Navigate2 Url , 2048 ' While ie.ReadyState < 4 ' DoEvents ' Wend while IE.Busy and b < 10 wait 700 b= b+1 Wend i = 0 while (i < 100) UrlRow = UrlRow + 1 wait 10 url = oSheet.getCellByPosition(urlCol, UrlRow).string .Navigate2 url, 2048 i= i + 1 tested = tested + 1 wend End With b=0 wait RAND()*(speed) + 99 IE.quit Shell "cmd.exe /c TASKKILL /IM iexplore.exe /F" wait 2000 Set objExplorer = Nothing nextUrl: UrlRow = UrlRow + 1 url = oSheet.getCellByPosition(urlCol, UrlRow).string wend 'oDoc.Close(true) msgbox "Von Zeile: " & starturl & " bis Url in Zeile: " & Urlrow & " Aufrufe: " & tested exit sub errorHandler: if ( Err = 91) then ' msgbox(text) 'stop resume nextUrl else ' msgbox "Error " & Err & ": " & Error$ & " (line : " & Erl & ")" resume next end if End Sub function fnOpenDoc(sFile) sURL = ConvertToURL(sFile) fnOpenDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Array()) end function Sub ie_2_tab() Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate2 "http://www.office-loesung.de/viewforum10_0_0.php" While objIE.ReadyState < 4 DoEvents Wend objIE.Navigate2 "http://www.office-loesung.de/ftopic417308_0_0_asc.php", 2048 objIE.Navigate2 "http://www.office-loesung.de/viewprofile59398.php", 2048 Set objIE = Nothing End Sub