Wieder paar mal auf die Taste gehaun:
<html><head><meta http-equiv="content-type" content="text/html;" & _
"charset=ISO-8859-1"><title>Google</title><style>body,td_
,a,p,.h{font-family:arial,sans-serif}.h{font-size:20px}.h{color:#3366cc}.q{co_
lor:#00c}.ts _
td{padding:0}.ts{border-collapse:collapse}#gbar{float:left;font-weight:bold;h_
eight:22px;padding-left:2px}#gbh{border-top:1px solid _
#c9d7f1;font-size:0;height:0;position:absolute;right:0;top:24px;width:200%}#g_
bi{background:#fff;border:1px solid;border-color:#c9d7f1 #36c #36c _
#a2bae7;top:24px;z-index:1000}#guser{padding-bottom:7px _
!important}#gbar,#guser{font-size:13px;padding-top:1px !important}@media _
all{.gb1,.gb3{height:22px;margin-right:.73em;vertical-align:top}}#gbi,.gb2{vi_
sibility:hidden;position:absolute}.gb2{z-index:1001}#gbar a,#gbar _
a:active,#gbar a:visited{color:#00c;font-weight:normal}.gb2 a,.gb3 _
a{text-decoration:none}.gb2 a{display:block;padding:.2em .5em}#gbar .gb2 _
a:hover{background:#36c;color:#fff}</style><script>window.google=_
{kEI:"zwt2R5WkMIfKnAPiltxY",kEXPI:"0",kHL:"de"};
function sf(){document.f.q.focus()}
window.gbar={};(function(){;var i=window.gbar,a,n,b,o="visible";function p( _
c,g,f){c.visibility=c.visibility==o?"hidden":o;c.left=g+"px";c.top=f+"px"}i.t_
g=function(c){var g=0,f,d,k,e=0,h=0,l=window.navExtra;!n&&( _
n=document.getElementById("gbar"));!b&&(b=n.getElementsByTagName("span"));( _
c||window.event).cancelBubble=true;if(!a){a=document.createElement( _
Array.every||window.createPopup?"iframe":"div");a.frameBorder="0";a.id="gbi";_
a.scrolling="no";a.src="#";document.body.appendChild(a);if(l&&b[8])for(var q _
in l){var m=document.createElement("span");m.appendChild( _
l[q]);m.className="gb2";b[0].parentNode.insertBefore( _
m,b[8])}document.onclick=i.close}for(;b[e];e++){d=b[e];k=d.className;if( _
k=="gb3"){f=d.offsetLeft;while(d=d.offsetParent)f+=d.offsetLeft}else if( _
k=="gb2"){p(d.style,f+1,25+g);h=Math.max(h,d.offsetWidth);g+=20}}for( _
e=0;b[e];e++){if(b[e].className=="gb2"){b[e].style.width=h+"px"}}var _
j=a.style;j.height=g+"px";j.width=h+"px";p(j,f,24)};i.close=function( _
c){a&&a.style.visibility==o&&i.tg(c)};})();</script></head><body _
bgcolor=#ffffff text=#000000 link=#0000cc vlink=#551a8b alink=#ff0000 _
onload="sf();if(document.images){new Image().src='/images/nav_logo3.png'}" _
topmargin=3 marginheight=3><div id=gbar><nobr><span _
class=gb1>Web</a></span> <span _
class=gb1>[url=http://images.google.de/imghp?hl=de&tab=wi]Bilder[/url]<_
/span> <span _
class=gb1>[url=http://maps.google.de/maps?hl=de&tab=wl]Maps[/url]</span_
> <span _
class=gb1>[url=http://news.google.de/nwshp?hl=de&tab=wn]News[/url]</spa_
n> <span _
class=gb1>[url=http://www.google.de/prdhp?hl=de&tab=wf]Shopping[/url]</_
span> <span class=gb1><a href="http://mail.google.com/mWie du sehen kannst immer unterschiedlich viel.
Ich lasse ihn immer zu ende ausführen. (Dein Code)
Private Sub Command1_Click()
Command1.Enabled = False
On Error GoTo ErrHANDLER
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.AccessType = icDirect
Text1.Text = Inet1.OpenURL("http://www.google.de/", icString) 'Seite laden
Open "C:\abc.htm" For Output As #1
Print #1, Text1.Text
Close #1
WebBrowser1.Navigate "c:\abc.htm"
Command1.Enabled = True
Exit Sub
ErrHANDLER:
Inet1.Cancel
MsgBox "ERROR: " & Err.Description, vbCritical
Command1.Enabled = True
Exit Sub
End SubDamit ich mir sicher bin hab ich sogar den Button vorher gesperrt und unten wieder freigegeben.
Nach hundert versuchen bekomme ich schließlich den ganzen Code. Aber warum nicht immer?
Das ärgert mich. Vielleicht ist das Control fehlerhaft!? |
Forenübersicht Suchen Forumsregeln
Oktober 2025
Sie sind aktuell nicht angemeldet.
