vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Mitarbeiter für News Ticker gesucht 
Autor: Stummelchen
Datum: 13.08.04 14:26
So ich Bastel gerade ein News Ticker das Hauptprogramm ist fast schon Fertig. Die Scripte um die es geht lesen die 1. News von der jeweiligen Seite aus. Die Webseite ist relativ egal da das Prog für jeder man sein soll. Ich suche noch ein paar Leutz die mir ein bischen die Arbeit abnehmen und Scripte für ein paar bekannte Seiten erstellen. Später ist gedacht das die Scripts hochgeldane werden können und über ein Updater kann der jeweilige User sich die Scripts für die Webseiten herunterladen die ihn interresiern.
So sieht eines der Scripte aus: 

URL = "www.extreme-players.de"    'Website
 
html = clsNewsTicker.inet ("www.extreme-players.de")  'Quelltext holen
 
'--- Titel --------------------------------------
 
Htitel = "class=" & chr(34) & "news_head_l" & chr(34) & ">"
HTitelend = "</a>"
 
back = InStr(1, html, Htitel) + Len(Htitel) - 1
back1 = Right(html, Len(html) - back)
 
Titelend = InStr(1, back1, HTitelend)
Titel = Trim(Left(back1, Titelend - 1)) 'Titel
 
'-----------------------------------------------
 
'--- Text --------------------------------------
 
Htext = "<div class=" & chr(34) & "news_body" & chr(34) & " style=" & chr(34) & _
  "z-index:20" & chr(34) & ">"
Htextend = "<div class=" & chr(34) & "news_foot" & chr(34) & ">"
 
posSt = InStr(1, html, Htext) + Len(Htext) - 1
back1 = Right(html, Len(html) - posSt)
 
posEnd = InStr(1, back1, Htextend) 
back2 = Left(back1, posEnd)
 
Text = Replace(Replace(clsNewsTicker.PlainHtml(back2), Chr(9), "" ),Chr( _
  150),"") 'Text
 
'-----------------------------------------------
 
'--- Daten abliefern ---------------------------
 
Call clsNewsTicker.News(Url, Titel, Text)
 
'-----------------------------------------------
Es gibt auch ein SDK das ich nebenher erstellt habe.
Womit man die Scripts testen kann und ein paar kleine Tools sind auch dabei.

mfg N@no!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Mitarbeiter für News Ticker gesucht900Stummelchen13.08.04 14:26
Re: Mitarbeiter für News Ticker gesucht533McKinley13.08.04 14:42
Re: Mitarbeiter für News Ticker gesucht518Stummelchen13.08.04 16:17
Re: Mitarbeiter für News Ticker gesucht539E713.08.04 16:59
Re: Mitarbeiter für News Ticker gesucht513Stummelchen13.08.04 17:36
Link522Stummelchen13.08.04 18:24
Re: Mitarbeiter für News Ticker gesucht558zoidberg15.08.04 11:49
Re: Mitarbeiter für News Ticker gesucht483Stummelchen16.08.04 12:10
Re: Mitarbeiter für News Ticker gesucht512Alexander16.08.04 17:05
Re: Mitarbeiter für News Ticker gesucht566Stummelchen17.08.04 11:41
Re: Mitarbeiter für News Ticker gesucht529Alexander28.08.04 17:27
Re: Mitarbeiter für News Ticker gesucht523Alexander28.08.04 17:43
Re: Mitarbeiter für News Ticker gesucht507Stummelchen29.08.04 13:02

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel