Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!
Exe İçinde Html Kod Çalıştırmak ;
Gerekli Kodlama ;
2- ) components ten microsoft internet control ekle. sonra forma webbrowser ekle
bir tane textbox ekle multiline = true yap
Kod:
<html>
<head>
<title>
son dakika
</title>
</head>
<body>
<object classid="clsid
27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="750" height="600">
<param name="movie" value="http://oyun.minikperi.net/oyunlar/zeka_oyunlari/varmi.swf">
<param name="quality" value="high">
<embed src="http://oyun.minikperi.net/oyunlar/zeka_oyunlari/varmi.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="750" height="600"></embed></object>
</body>
bu kodu textbox a yapıştır. sonra textbox ı formda gözükmeyen biyere çek
buyur kodun
Kod:
Private Sub Form_Load()
Dim kaydet As String * 129
Open "c:\site.html" For Random As #1 Len = 129
For i = 1 To Len(Form1.Text1) \ 129 + 1
kaydet = Mid(Form1.Text1, i * 129 - 128, 129)
Put #1, i, kaydet
Next
Close #1
WebBrowser1.Navigate "c:\site.html"
End Sub
denedikten sonra ekledim çalışıyo inşallah işine yaramıştır.
Gerekli Kodlama ;
2- ) components ten microsoft internet control ekle. sonra forma webbrowser ekle
bir tane textbox ekle multiline = true yap
Kod:
<html>
<head>
<title>
son dakika
</title>
</head>
<body>
<object classid="clsid
<param name="movie" value="http://oyun.minikperi.net/oyunlar/zeka_oyunlari/varmi.swf">
<param name="quality" value="high">
<embed src="http://oyun.minikperi.net/oyunlar/zeka_oyunlari/varmi.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="750" height="600"></embed></object>
</body>
bu kodu textbox a yapıştır. sonra textbox ı formda gözükmeyen biyere çek
buyur kodun
Kod:
Private Sub Form_Load()
Dim kaydet As String * 129
Open "c:\site.html" For Random As #1 Len = 129
For i = 1 To Len(Form1.Text1) \ 129 + 1
kaydet = Mid(Form1.Text1, i * 129 - 128, 129)
Put #1, i, kaydet
Next
Close #1
WebBrowser1.Navigate "c:\site.html"
End Sub
denedikten sonra ekledim çalışıyo inşallah işine yaramıştır.
