WEB-Site Write Script for www.fa2.de

Started by Theo Gottwald, January 05, 2025, 04:45:25 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Theo Gottwald

January 05, 2025, 04:45:25 PM Last Edit: January 05, 2025, 04:49:15 PM by Theo Gottwald
𝚃𝚑𝚒𝚜 𝚒𝚜 𝚊 𝚟𝚎𝚛𝚢 𝚘𝚕𝚍 𝚜𝚌𝚛𝚒𝚙𝚝. 𝚃𝚘 𝚞𝚗𝚍𝚎𝚛𝚜𝚝𝚊𝚗𝚍 𝚒𝚝, 𝚢𝚘𝚞 𝚜𝚑𝚘𝚞𝚕𝚍 𝚟𝚒𝚜𝚒𝚝 𝚝𝚑𝚒𝚜 𝚠𝚎𝚋𝚜𝚒𝚝𝚎.
Theos  private Link Site

𝚃𝚑𝚒𝚜 𝚜𝚌𝚛𝚒𝚙𝚝 𝚐𝚎𝚗𝚎𝚛𝚊𝚝𝚎𝚜 𝚒𝚖𝚊𝚐𝚎𝚜 𝚊𝚗𝚍 𝚝𝚑𝚎 𝚠𝚎𝚋𝚙𝚊𝚐𝚎 𝚏𝚛𝚘𝚖 𝚊 ".𝚒n𝚒" 𝚏𝚒𝚕𝚎.
𝚃𝚑𝚎 𝚊𝚍𝚟𝚊𝚗𝚝𝚊𝚐𝚎 𝚘𝚏 𝚝𝚑𝚒𝚜 𝚜𝚌𝚛𝚒𝚙𝚝 𝚒𝚜 𝚝𝚑𝚊𝚝 𝚒𝚝 𝚊𝚕𝚕𝚘𝚠𝚜 𝚏𝚘𝚛 𝚎𝚊𝚜𝚢 𝚞𝚙𝚍𝚊𝚝𝚎𝚜 𝚝𝚘 𝚝𝚑𝚎 𝚠𝚎𝚋𝚜𝚒𝚝𝚎 𝚋𝚢 𝚜𝚒𝚖𝚙𝚕𝚢 𝚖𝚘𝚍𝚒𝚏𝚢𝚒𝚗𝚐 𝚝𝚑𝚎 .𝚒𝚗𝚒 𝚏𝚒𝚕𝚎.

𝙾𝚗𝚌𝚎 𝚝𝚑𝚎 𝚜𝚌𝚛𝚒𝚙𝚝 𝚒𝚜 𝚛𝚞𝚗, 𝚒𝚝 𝚠𝚒𝚕𝚕 𝚘𝚗𝚕𝚢 𝚛𝚎𝚙𝚛𝚘𝚌𝚎𝚜𝚜 𝚝𝚑𝚎 𝚌𝚑𝚊𝚗𝚐𝚎𝚍 𝚙𝚊𝚐𝚎𝚜 𝚊𝚗𝚍 𝚝𝚑𝚎𝚗 𝚐𝚎𝚗𝚎𝚛𝚊𝚝𝚎 𝚝𝚑𝚎 𝚏𝚒𝚗𝚊𝚕 𝚒𝚗𝚍𝚎𝚡 𝚏𝚒𝚕𝚎 𝚊𝚗𝚍 𝚒𝚖𝚊𝚐𝚎 𝚙𝚊𝚛𝚝𝚗𝚎𝚛𝚜.

#𝚆𝚎𝚋𝙳𝚎𝚟𝚎𝚕𝚘𝚙𝚖𝚎𝚗𝚝 #𝚂𝚌𝚛𝚒𝚙𝚝𝚒𝚗𝚐 #𝙰𝚞𝚝𝚘𝚖𝚊𝚝𝚒𝚘𝚗 #𝚆𝚎𝚋𝚜𝚒𝚝𝚎𝚄𝚙𝚍𝚊𝚝𝚎𝚜 #𝙸𝚗𝚍𝚎𝚡𝚒𝚗𝚐
𝚃𝚑𝚎 𝚏𝚘𝚛𝚖𝚊𝚝 𝚘𝚏 𝚝𝚑𝚎 ".𝚒n𝚒" 𝚏𝚒𝚕𝚎 𝚕𝚘𝚘𝚔𝚜 𝚕𝚒𝚔𝚎 𝚝𝚑𝚒𝚜:

Code Select
; Picture Size is 503x499 Name 1_1 bis 1_8 (nach rechts) und nächste Zeile 2_1 bis 2_8.jpg
[General]
Count=15
PicX=175
PicY=130
Subfolder=/pics
Size=16
Target=index.html
Column=9

; Banken
[B1]
L1=https://www.bild.de
T1=BILD Zeitung

L2=https://amzn.to/3DHBrEx
T2=AMAZON Shopping

L3=https://www.psd-karlsruhe-neustadt.de/services_cloud/portal/
T3=PSD-OnlineBanking

L4=https://banking.ing.de/app/obligo
T4=DiBA Homebanking

L5=https://banking.adac-kreditkarte.de/login/
T5=ADAC Kreditkartenbanking

L6=https://banking.postbank.de/#/login
T6=Postbank Homebanking

L7=https://www.mbv-ka-ebanking.de/services_cloud/portal/
T7=E-Banking MBV Karlsruhe

L8=https://nagamarkets.com/register?refcode=xijjr0
T8=NAGA Markets

L9=https://www.ebay.de/itm/335655440801?_skw=c60+%C3%B6l&itmmeta=01JGTV0580SMW5NH6P0MT2FQ1G&hash=item4e269f91a1:g:2ekAAOSwIMZlK4wz&itmprp=enc%3AAQAJAAAA4HoV3kP08IDx%2BKZ9MfhVJKm6ssTs3Wy12TWpdcL1VXAN8kXV7t1d8YRbMKA8moSoVcdlpCEamE167xK559cjrA6EYY4Hm6IEA4Dwojd%2FIyas3KKYrknFev%2BdN7ic40yW5XSJWuc9e2B650R5g6HDUb34JjdZBpVXZZAKf5%2BdQNh53TkYWisuSHa1j0mth2iLNRvEGtrsrrRsPBr6qcj6syc7eQwdC4N7d23aAR0%2BqHlFgZeS7DFyYn0jUHnEJyq3nNITf2Wq6hH2sCvJJHJEXEbKQjfQsmOc3R0IOrlS9Djn%7Ctkp%3ABFBMotSA24Zl
T9=EBAY Shopping



; Domain-Services, WEB-Mailer
[B2]
L1=https://mail.ionos.de/
T1=1&1-Webmailer 

L2=https://login.ionos.de/?ionos-tour=instant
T2=1&1 Provider-Login

L3=https://admin.df.eu/kunde/index.php?into=appsuite
T3=Domain Factory WEB-Mailer & Provider Login

L4=https://mail.google.com/mail/u/0/?pli=1#inbox
T4=GMail

L5=http://www.smart-package.com/ 
T5=Smart Package Robot 

L6=https://x.com/TheoGottwald
T6=X/Twitter

L7=https://youtu.be/FYtemYHZqlQ
T7=Video zum AddOn

L8=https://www.smart-package.com/downloads/Influenzer_AddOn_Free.zip
T8=FREE A.I. AddOn download

L9=https://www.mql5.com/en/market
T9=MQL Marketplace


; AI
[B3]
L1=https://chat.deepseek.com/
T1=DeepSeek AI (free)

L2=https://chatgpt.com/
T2=Open AI ChatGPT

L3=https://platform.openai.com/playground/chat?models=gpt-4o
T3=OpenAI Playground

L4=https://platform.openai.com/account/usage
T4=OpenAI Usage (Kosten)

L5=https://bettergpt.chat/
T5=BetterGPT (API-Key)

L6=https://chat.mistral.ai/chat
T6=Mistral AI

L7=https://claude.ai/new
T7=Anthropic Claude

L8=https://console.anthropic.com/workbench
T8=Anthropic AI-Workbench

L9=https://gemini.google.com/app
T9=Google Gemini AI (free)



𝚃𝚑𝚎 𝚜𝚌𝚛𝚒𝚙𝚝 𝚌𝚘𝚗𝚜𝚒𝚜𝚝𝚜 𝚘𝚏 𝚊 𝚖𝚊𝚒𝚗 𝚜𝚌𝚛𝚒𝚙𝚝 𝚊𝚗𝚍 𝚝𝚠𝚘 𝚕𝚒𝚋𝚛𝚊𝚛𝚢 𝚜𝚞𝚋-𝚜𝚌𝚛𝚒𝚙𝚝𝚜 that are listed below. Attached to the Post is the needed "Prefix.txt".


#𝙾𝚕𝚍𝚂𝚌𝚛𝚒𝚙𝚝 #𝙸𝙼𝙸𝙵𝚒𝚕𝚎 #𝚆𝚎𝚋𝙳𝚎𝚟𝚎𝚕𝚘𝚙𝚖𝚎𝚗𝚝 #𝙸𝚖𝚊𝚐𝚎𝙶𝚎𝚗𝚎𝚛𝚊𝚝𝚒𝚘𝚗 #𝙿𝚛𝚘𝚐𝚛𝚊𝚖𝚖𝚒𝚗𝚐

Code Select
'MR Script-file:   
'Version:
'Purpose:
'Author: Andreas Walkenhorst
'Creation date:
'===========================================================
'#EXE:?pfad\
'#SPI:ForceWrite
#LIB:?path\Library\
'
$$PFA=?exeloc\
'-----------------------------------------------------------
'  Ini auslesen
'-----------------------------------------------------------
' Quell-INI
$$INI=$$PFAMain.ini
NEF.$$INI
  MBX.Datei nicht gefunden:$crlf$$$INI
  ENR. 
EIF.

' Number of Blocks
$$SEC=General
$$KEY=Count
CFI.$$INI|$$SEC|$$KEY|$$LIZ

' Größe der Bilder ist 175x130 (350x260)
' Dateiname = Zeile_Spalte.jpg (ohne führende "0")
'VAN.$$PIX=175
$$KEY=PicX
CFI.$$INI|$$SEC|$$KEY|$$PIX

'VAN.$$PIY=130
$$KEY=PicY
CFI.$$INI|$$SEC|$$KEY|$$PIY

'VAR.$$PRZ=16%
$$KEY=Size
CFI.$$INI|$$SEC|$$KEY|$$PRZ

' Zeilen pro Block derzeit 2
VAR.$$ZLZ=2

'$$TXF=index.html
$$KEY=Target
CFI.$$INI|$$SEC|$$KEY|$$TXF

' Anzahl Spalten anch rechts je Zeile
'VAN.$$SPA=6
$$KEY=Column
CFI.$$INI|$$SEC|$$KEY|$$SPA
CAL.$$SPB=$$SPA+1
VAR.$$DIR=$$PFAwebsite
'-----------------------------------------------------------
'  Array-Variable Initialisieren
'-----------------------------------------------------------
' Für Links
CNB.$$LBA|$$SPA
' Für Text
CNB.$$UAA|$$SPA
'-----------------------------------------------------------
'  Zielverzeichnis und Zieldatei vorbereiten
'-----------------------------------------------------------

IEF.$$DIR
ELS.
  MKD.$$DIR
EIF.

VAR.$$FIO=$$DIR\$$TXF
IEF.$$FIO
  DEL.$$FIO
EIF.

'-----------------------------------------------------------
' Unterverzeichnis mit Bildern vorbereiten
'-----------------------------------------------------------
' Name des Unterverzeichnisses mit den Bildern
'VAR.$$SUB=/pics
$$KEY=Subfolder
CFI.$$INI|$$SEC|$$KEY|$$SUB
VAR.$$PIF=$$DIR\pics
MKD.$$PIF

'-----------------------------------------------------------
'  HTML-Prefix holen (Seitenanfang ist immer gleich)
'-----------------------------------------------------------
'GSB.Prefix_File
' New Version get Prefix from Inline Data
GSB.Inline_Prefix

' Old Version using Prefix-File
'VAF.$$PRF=$$PFAPrefix.txt
'CFF.$$PRF|$$PRE
LEN.$$PRE|$$LEN
JIV.$$LEN<10|Lab_error

'-----------------------------------------------------------
'  HTML-Prefix in Zieldatei schreiben
'-----------------------------------------------------------
' Prefix mit Google Feld schreiben
%Write $$PRE

'-----------------------------------------------------------
'  Variablen Teil schreiben
'-----------------------------------------------------------
FOR.$$LAU|1|$$LIZ
  DBP.Writing ...$$LAU
  %ReadLine $$LAU
  %Write <tr>

  FOR.$$LAA|1|$$SPA
    %WriteBlock $$LAA|$$LAU|$$LAA
  NEX. 

  %Write </tr>
  %Write <tr>
  FOR.$$LAA|1|$$SPA
    %Footer $$LAA   
  NEX.
  %Write </tr>
  %Write <tr>
  %Write <td colspan="11" bgcolor="#C0C0C0">&nbsp;</td>
  %Write </tr>
NEX.

'-----------------------------------------------------------
' Footer schreiben
'-----------------------------------------------------------
%Write </tbody>
%Write </td
%Write </tr>
%Write </tbody>
%Write </table>

MBT.FERTIG||55
END.
'-----------------------------------------------------------
' Unterprogramme
'-----------------------------------------------------------
' Parameter 1 ist Zeilen-Nummer
'
: %ReadLine 1
GSB.Lab_Doit|§§§01
END%

:Lab_Doit
' Text-Eintrag in INI lesen
$$SEC=B§§_01
GSB.ReadSec|1|T

' Link-Eintrag in INI lesen
GSB.ReadSec|2|L
RET. 
'-----------------------------------------------------------
' Liest alle Links einer Zeile von Links nach rechts
' Diese kommen dann in $$LB1 .. $$LB8 oder $$UA1 ..$$UA8
:ReadSec
FOR.$$NUM|1|$$SPA
  $$KEY=§§_02$$NUM
  CFI.$$INI|$$SEC|$$KEY|$$VAL
  IVV.§§_01=1 
  ' Text Lesen
    SBE.$$UAA|$$NUM|$$VAL
  ELS.
  ' Link lesen
    SBE.$$LBA|$$NUM|$$VAL
  EIF.
NEX.
RET.
'-----------------------------------------------------------
: %Write 1
GSB.Lab_Writer|§§§01
END%
'-----------------------------------------------------------
: %Footer 1
GBE.$$UAA|§§§01|$$VAS
VAR.$$ELK=<td align="center" width="16%"> <b> <font size="4">$$VAS</font></b></td>
%Write $$ELK
END%
'-----------------------------------------------------------
' Not used, Alternative to Inline_Data
:Prefix_File
IEF.$$PIF\
  MBX.Deleting:$crlf$ $$PIF
  RMD.$$PIF
ELS.
  DBP.$$PIF not found
EIF.
RET.
'-----------------------------------------------------------
:Lab_Writer
$$CON=§§_01$crlf$
ATF.$$FIO|$$CON
RET.
'-----------------------------------------------------------
'-----------------------------------------------------------
' Parameter 1: Blocknummer
' 2 - Blockzeile
' 3 - Blockspalte
'
: %WriteBlock 3
GBE.$$LBA|§§§01|$$VAT
'PRT. Got in Block: $$VAT
VAV.$$LNK=$$VAT
'#######################################################################
VAV.$$VAF=§§§02
VAV.$$VAG=§§§03
GSB.Do_Snap|$$LNK|$$VAF|$$VAG
'#######################################################################
VAR.$$OUA=<td width="$$PRZ" align="center">
$$OUA=$$OUA$crlf$<a
VAR.$$ELK=href="$$VAT">
VAV.$$OUA=$$OUA$crlf$$$ELK
CAL.$$LAD=§§§01
GSB.Gen_Filename|$$LNK
VAR.$$ELK=<img width="$$PIX" height="$$PIY" border="0" src=".$$SUB/$$FIN"/>
$$OUA=$$OUA$crlf$ $$ELK
$$OUA=$$OUA$crlf$ </a>
$$OUA=$$OUA$crlf$ </td>
%Write $$OUA
END%
'-----------------------------------------------------------
:Do_Snap
SAV.Save|$$VAA|$$VAB|$$VAC|$$TAX|$$TAY|$$FIN|$$TMP
VAN.$$TAX=350
VAN.$$TAY=260
VAF.$$TMP=?exeloc\Temp.jpg
VAR.$$VAA=§§_01
VAR.$$VAB=§§_02
VAR.$$VAC=§§_03
GSB.Gen_Filename|$$LNK
PRT.($$VAB,$$VAC) $$FIN -> $$LNK
VAR.$$FIM=$$PIF\$$FIN
NEF.$$FIM
  %Locate_Run $$LNK
  %Locate_TW
  SWP.0,0|1348,1244|T
  PAU.20
  ANA.Set_Data|8|0
  ANA.Snap|0
  ANA.CutRect|0|10|90|1300|1200
  ANA.ResizeTo|0|0|$$TAX|$$TAY
  ANA.Save|0|$$TMP
  COP.$$TMP|$$FIM
  NEF.$$FIM
    MBX.Datei nicht erzeugt: $$FIM
  EIF.
  CAL.$$VAD=$$VAB+$$VAC
  IVV.$$VAD>2
    %Locate_TW
    MLI.
    PAU.0.5
    SDK.^w
    PAU.1
  EIF.
EIF.
'ANA.Show|0!
SAV.Restore
RET.
'-----------------------------------------------------------
:Gen_Filename
SAV.Save|$$VAA|$$VAB|$$VAC|$$VAD|$$VAE|$$TAX|$$TAY|$$TMP
VAR.$$VAA=§§_01
GMD.v|$$VAA|$$VAD
GMD.e|$$VAA|$$VAE
VAR.$$FIN=$$VAD_$$VAE.jpg
' Filename is in $$FIN
SAV.Restore
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
' Prefix.txt
' $$DTA = Data
' $$FIN = Filename of Sourcefile
' Length:  2010 Bytes in  31 Lines.
:Inline_Prefix
VDA.$$PRE|$$FIN=
  ?MAAGHCAAASlE8gB7YrG97QcgpaNX/xzgGowKyBSrduWIBc5kEOsbJfXQpRFL7cwfJ
  PHR2pHp7SytS+N+Zhn2j2IlRAWfciKDbKF3pMMIsX7l6+wyM8/NaZjTYM68/cT/P
  qC7rJLYdsXbmDXeQ74cc0DJYKq2OLYyGjCPTZGtqx05HrPdrhKW/KZgJ2R1hYJBX
  ByBEwz/V236bnKNtIM6roUePBs0i0oR4dm98n9OabPsIiMFidzmXC8mx0OaGXv4y
  VIyVEschay0NfVDFGmpifqx3fW+iYyCiDv2vyM9dX94BguVxeSLbd2+iZjvkv21m
  lz65TmfZ8jaUCb8o2upBjMSs2vtnlnurD3Z77zPqvZWOIkmwfH6Wz+fmg56heHiX
  kNOhaygojm/vc6tN7FHRKSy0FLdr/P3/FVtbvYt5Lw5ARNUiAtxrL56LpD+KnZaV
  jqQYhftyzXE8k2MVa51ZPKd4dyVS3kyOEO+Y+Bla3daISWGyXLw7PFBsZTHAjB+3
  C49SRGoCJcVRuz5XPXSSJosvjVZtEKNTwWz+yAuhEftpNG49Br9zfrBWpKuTDMyC
  zfUOaGp+fEBUkTKmnJYEA/NMwf0MiL4Asyq29glM1jL4ODPDwCrrDPK0/GY9aM4b
  Vy5NrKDiIN050/O6S3k8da4XUy+qI0+P9ONu2AiT7tKarwKjZmHLsouj6InJriVP
  J+79ADDRhDfZau0Nv1TePSr1yvlhAqzDp2y95PIOGbSoW/JcKee5kfFJcxtT0F2v
  9DdnUBPKBCiyl8DkHUEoawXardrX8VgVbRhXuZKW3nqTnRlETgLN50JXr3S0tAcl
  9YT1/Wjf7nGdGMNALh3X57Yne3V48EaYjLCZGj8+YbYiQb4MLVmzEx4Rmr2yRWrY
  Ryl3+T5d+JEiuB7M6Do81fL0MimrvVxWmxAbj/y07kPIq5Hi3RME4kZTTgda98S3
  547zcUWNetp22Ai7yU0lUumvjVgluwpxMqisk39g2+WGFN704JLKB/IL6Kz45Xh+
  2Ci9OSstDc65U6eseQrcHIxo2pMI5ueIRLPvYAeJlbcUzOCCWVWvCurNat6ZL5qW
  PFfDNrCZ+tT/DPfa/6dn4fuBJTiPaUo8veqpqrVDmGXzb65LjBQ+F0RKHxcJl/MI
  3przdfOcGEz+xBpk7toldvxt4YZFGqtpIdSmi5ulC6791qjqtnb/xkE5o2dwfNLQ
  +0LcjzHRm5snVvn1tTvf+lzh/HWikZUJOHyMgbvhzCYjfXafoEtoGP+Com+QLQ3I
  oKjEFVA370DmB32bGoeFTFImoth/KZaSkiVW4C6dDB9TP7kA/FQvv7i7FK6Fvl41
  B8iHoX6sG0kvT+weBxc6LK9AdS+56s01pfpDA7wJZHRbeCDnAn1FNVP2qRVW9Wq+
  o3ZW0zhaK4nH6ZQcIRCsYopE+dpIS/lhk7aa+7MUlEUISHJFeDuUQRavFUztld9a
  pTVAWUhIHvUSTfINoi/Wl+8UF61xgY8Xj3bKTOZGlBOm0I6C1AthozWnaTmrUrjI
  I/D6bRuyg4+Wh+2roCQWuQkor4GaC8TeqNzIZrzCEWaxFFHopZ5VUqKl7ph4bG3P
  QEjHyeekOHZPo7HMXghYPlaFHwWSxBbFyY2CS86y3zc5M8L7kdrJFh1YICkok9XT
  NQqECNG8HfP4QfNeExXXN3iHOqkhFFBBpxq9G40cvo8lGmmGC5Gl9gEjOKfWCEqO
  W6YEdQHXg279vaG+DRmSLx55P5wDfSCTLK1bHTbFqJFmUhTL6VsxSRsPrtg69GNV
  NBwWWLzki+j2lrhHOnAaaly0NbyU1MseOOHooBgGNLShzSm4REFKwWTi2zAoJQOu
  tm62kZQUUuxO7YjoYEbGu0XbI75qNVDEICr++fsB36Jt6xXH5IASZtfx3ZpBt3H/
  hjyV+AOtp0YT77uqlJkn5LPDItoB
VDE.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
#INC:Library.mrt
'-----------------------------------------------------------
:Lab_error
MBX.Fehler: $$LEN<10
ENR.

Code Select

'===========================================================
' Sub-Programmes
'===========================================================
'-----------------------------------------------------------
'===========================================================
:CheckShift
IKS.{SHIFT}
  END. 
EIF.
RET.
'===========================================================
' Locate or - if not open - run Firefox
' with Link in Parameter
: %Locate_Run 1
GSB.Run_Loc|§§§01
END%

:Run_Loc
NEW.$$HWN
  STW.ctwoX|MozillaWindowClass|Mozilla Firefox|0|Runit
  SWP.0,0|2300,1700|T
  HTV.$$HWN
ELS.
  :Runit
  $$LNA=§§_01
  %Firefox $$LNA
EIF.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'
: %Locate_TW 0
GSB.Loc_TW
END%

:Loc_TW
NEW.$$HWN
  STW.ct|MozillaWindowClass|Mozilla Firefox
  'STW.ct|MozillaWindowClass|Safir - Mozilla Firefox
  SWP.0,0|2300,1700|T
  HTV.$$HWN
ELS. 
  STW.h|$$HWN
EIF.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
' Kann ohne Parameter aufgerufen werden,
' oder mit einem Parameter mit dem Link für die neue Site
'
: %New_TAB 0
#IF PARAMS=1
SAV.Save|$$LNA
VAR.$$LNA=§§§01
GSB.New_TAB
PAU.1
%Firefox_Set_Site $$LNA
SAV.Restore
#EIF
#IF PARAMS=0
GSB.New_TAB
#EIF
END%
'-----------------------------------------------------------
:New_TAB
GSB.Loc_TW
AGR.43!WII.MLI.|Einen neuen Tab öffnen (Strg+T)||1|3|60
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'
: %Firefox_Set_Site 1
SAV.Save|$$TXT|$$PAR
$$PAR=§§§01
GSB.Set_Site|$$PAR
SAV.Restore
END%
:Set_Site
VAR.$$TXT=§§_01
GSB.Loc_TW
AGR.43!WII.MLI.|Startseite||1|3|60
PAU.0.5
NAV.Rr|R|42
MLI.
PAU.0.5
CLP.t|$$TXT|1
KBC.Paste Over
SKP.{Enter}
PAU.0.5
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'
' P1 - Text that is on the TAB we want
' P2 - optional the number of the TAB if it has the same Text like on other TABs
'  normally Nr. is 1
' The minimum Number of Parameters is 1 thats why we have a "1" here after The Macroname
'
: %Locate_TAB 1
SAV.Save|$$NUM|$$TXT
VAR.$$TXT=§§§01
#IF PARAMS=1
VAR.$$NUM=1
GSB.Loc_TAB
#EIF
#IF PARAMS=2
VAR.$$NUM=§§§02
GSB.Loc_TAB|§§§01
#EIF
SAV.Restore
END%
'-----------------------------------------------------------
:Loc_TAB
GSB.Loc_TW
AGR.42!WII.MOS.|$$TXT||$$NUM|3|60
GSB.Loc_TW
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'
: %Firefox 1
GSB.Lab_Run_Firefox|§§§01
END%
'-----------------------------------------------------------
:Lab_Run_Firefox
SAV.Save|$$PAT|$$NAM|$$RES|$$EXE|$$LNK
'-----------------------------------------------------------
IAI.Mozilla Firefox
  VAR.$$LNK=§§_01
  GSB.Lab_FF_starten
ELS.
  MBX.Firefox ist nicht installiert.
  END.
EIF.
RET.

:Lab_FF_starten
VAR.$$NAM=$tos$
GII.$$NAM|$$RES|u
BLB.$$RES|$$RES
BLB.$$RES|$$RES
  ' $$PAT enthällt Programmpfad ohne "\"
VAR.$$PAT=$$RES
VBT.$$PAT|"
VAR.$$EXE=$$PAT\Firefox.exe
IEF.$$EXE
  EXE.$$EXE|$$LNK
ELS.
  MBX.Kann FF nicht starten.
  END.   
EIF.
SAV.Restore
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
: %Firefox_Back 0
GSB.Lab_Back
END%

:Lab_Back
GSB.Loc_TW
AGR.43!WII.MOS.|Zurück||1|3|60
PAU.0.7
RET.

'-----------------------------------------------------------
'
'-----------------------------------------------------------
: %Firefox_Close 0
GSB.Lab_Close_FF
END%

:Lab_Close_FF
GSB.Loc_TW
CLW.$$HWN
STW.ct|MozillaDialogClass|schließen?&OR:close
' AGR. uses a waiting time of 60 seconds, you can change it below.
AGR.43!WII.MOS.|Tabs schließen&OR:close||1|3|60
MLI.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------


Code Select
' Point-Convert Commands-Library
'-----------------------------------------------------------
' A Point-Variable contains a X and an Y-Value, delimited by a comma.
' Example: VAP.$$POI=210,450
' To split a Point-Varibale into its two numbers you can use this Macro.
'-----------------------------------------------------------
'
' Convert Point-Variable to 2 Variables
: %Point_to_Vars 3
VAO.§§§02
VAO.§§§03
GSB.Lab_PTV|§§§01|§§§02|§§§03
END%

:Lab_PTV
SAV.Save|$$P01|$$P02|$$P03
VAP.$$P01=§§_01
GES.b|$$P01|,|$$P02
GES.d|$$P01|,|$$P03
VAI.§§_02=$$P02
VAI.§§_03=$$P03
SAV.Restore
RET.

'
'-----------------------------------------------------------
' Convert RECT into 2 Point-Variables
'
'-----------------------------------------------------------

'VAC.$$REC=10,20,30,40
'%Rect_to_Point $$REC|$$REA|$$REB
'MBX.$$REA+$$REB
: %Rect_to_Point 3
VAO.§§§02
VAO.§§§03
GSB.Lab_RTP|§§§01|§§§02|§§§03
END%

:Lab_RTP
SAV.Save|$$P01|$$P02|$$P03
VAC.$$P01=§§_01
SBM.$$P01|,|1|2|$$P02
SBM.$$P01|,|3|4|$$P03
VAR.$$P01=,$sp$
VBT.$$P02|$$P01
VBT.$$P03|$$P01
VAI.§§_02=$$P02
VAI.§§_03=$$P03
SAV.Restore
RET.

'-----------------------------------------------------------
' Convert RECT into 4 Numeric-Variables
' 10,20,30,40 -> $$VA1,$$VA2,$$VA3,$$VA4
'-----------------------------------------------------------
'
: %Rect_to_Vars 5
VAO.§§§02
VAO.§§§03
VAO.§§§04
VAO.§§§05
GSB.Lab_RTV|§§§01|§§§02|§§§03|§§§04|§§§05
END%

:Lab_RTV
SAV.Save|$$P01|$$P02|$$P03|$$P04|$$P05|$$P06|$$P07|$$P08|$$P09|$$NUA
VAC.$$P09=§§_01
VAO.$$P01=§§_02
VAO.$$P02=§§_03
VAO.$$P03=§§_04
VAO.$$P04=§§_05
VAR.$$P07=,$sp$
VAN.$$NUA=1
GSB.Lab_RTVA
VAI.$$P01=$$P05
VAI.$$P02=$$P06
VAN.$$NUA=3
GSB.Lab_RTVA
VAI.$$P03=$$P05
VAI.$$P04=$$P06
SAV.Restore
RET.

:Lab_RTVA
SBM.$$P09|,|$$NUA|($$NUA+1)|$$P08
VBT.$$P08|$$P07
%Point_to_Vars $$P08|$$P05|$$P06
RET.

'-----------------------------------------------------------
'===========================================================
 

technically the prefix.txt looks like this:
Code Select
<meta content="text/html; charset=windows-1252" http-equiv="Content-Type"> </meta>
<title>Theo Gottwald's private Link Site</title>
<table width="1250" height="590" border="0">
<tbody>
<tr>
<td height="39" colspan="2">
<p align="center"><span style="font-size: x-large;"><b>Theo Gottwalds </b>private<b>s deutsches Presse-Portal </b> </span></p></td>
</tr>
<tr>
<td height="21" bgcolor="#ffff00" colspan="2">&nbsp;</td>
</tr>
<tr>
<td height="21" bgcolor="#c0c0c0" colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="655">
<!-- Search Google --> <center> <form action="http://216.58.214.131/search" method="GET">
<table bgcolor="#ffffff">
 <tbody>
  <tr>
   <td> <a href="http://216.58.214.131/"> <img border="0" align="absmiddle" alt="Google" src="http://216.58.214.131/logos/Logo_40wht.gif" /></a> <input maxlength="255" size="31" name="q" type="text" /> <input name="hl" type="hidden" value="de" /> <input name="btnG" type="submit" value="Google Search" /> </td>
  </tr>
 </tbody>
</table> </form> </center> <!-- Search Google --> </td>
<td width="438" height="153">
<p><span style="font-size: large;"><b>Wir haben den</b></span></p>
<p><span style="font-size: xx-large;"><b><a href="http://216.58.214.131/">Google-Direktlink</a></b> </span></p>
<p><span style="font-size: medium;">Unser Google-Direktlink funktioniert auch bei <b>DNS-Problemen</b>.</span></p> </td>
</tr>
<tr>
<td height="21" bgcolor="#c0c0c0" colspan="2">&nbsp;</td>
</tr>
<tr>
<td height="21" bgcolor="#ffff00">
<p align="center"><span style="font-size: xx-large;">PRESSE</span></p></td>
<td height="21" bgcolor="#ff0000">
<p align="center"><a href="http://www.amazon.de/wishlist/2IQULGNMN1QXZ"> <span style="font-size: xx-large; color: rgb(255, 255, 0);">Theo's </span></a><span style="font-size: xx-large;"> <a href="http://www.amazon.de/wishlist/2IQULGNMN1QXZ"><span style="color: rgb(255, 255, 0);">        Wunschzettel</span></a></span></p></td>
</tr>
<tr>
<td height="21" bgcolor="#c0c0c0" colspan="2">&nbsp;</td>
</tr>

<!-- beginn tabelle  -->
<tr>
 <td valign="top" colspan="2">
  <table width="100%" border="1" id="table2">
    <tbody>
<tr>
Print
Go Up Pages1
User actions