Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Microsoft Internet controls !?

Postades av 2006-04-28 11:48:19 - Tobias Lindberg, i forum visual basic - allmänt, Tråden har 6 Kommentarer och lästs av 900 personer

Hej!
Jag har byggt ett program som funkar som så att man skirver in användarnamn och Lösenor (om man vill) så vid vissa tidpunkter på dygnet så öppnar programet internet explorer och går till den anvivna sida. Då funkar det som så att det användarnamnet användaren och skrivit in skriver programet också in, sen så trycker programet TAB så hoppar det ner en ruta där man skriver in lösenordet (har man lösenordet sparat i internet explorer så kommer det upp och så trycker progamet ENTER ok loggar in. (om man inte har lösenordet sparat så får man skriva in lösenordet i programet så kommer lösenordet upp)
Nu så hadde jag tänkt utväkla programmet så det inte blir så rörigt alltså jag hadde tänkt att använda Microsoft Internet Controls, så slipper man att ett internät fönster popar upp och loggar in m.m. men nu är problemet det att jag inte vet riktigt hur man ska göra för att programet ska skriva i (sidan) som finns i internet controls!

Så min fråga är hur går jag så jag slipper använda TAB och ENTER m.m asså så programet sköter detta i bakgrunden, (hur skriver jag i textfält i då internet controls).

Sen har jag en fråga till när man då har loggat in på sidan med internet controls så adressfältet står det typ ' .php?info=1&id=449465 ' och då vill jag vet hur jag kan ta ut informationen vad id är lika med!
Asså typ såhär:
.php?info=1&id=449465
Då skrivs det i programet ID = 449465


Svara

Sv: Microsoft Internet controls !?

Postades av 2006-04-28 12:31:48 - Sven Åke Persson

Du kan börja med att kolla denna kod där jag kan plocka väder från Bromma flygplats
För att navigera på den aktuella sidan kolla HTML koden för sidan
<code>
Option Explicit
Private Sub Command1_Click()
Dim sChunk As String, ret As Long
Dim sPressure As String
Dim iContentLenght As Long
On Error GoTo NoInet
Inet1.URL = "http://weather.noaa.gov/weather/current/ESSB.html"
Inet1.Execute
Do While Inet1.StillExecuting = True
DoEvents
Loop
iContentLenght = Inet1.GetHeader("Content-Length")
sChunk = Inet1.GetChunk(iContentLenght)
ret = InStr(sChunk, "Pressure (altimeter)")
sPressure = Mid$(sChunk, ret + 95, 4)
Form1.Caption = "Bromma QNH " & sPressure & " hPa"
BrommaOk:
Exit Sub
NoInet:
Form1.Caption = "Bromma QNH Fel"
Resume BrommaOk
End Sub
</code>


Svara

Sv:Microsoft Internet controls !?

Postades av 2006-04-28 12:36:53 - Tobias Lindberg

sorry men jag fatta inte mycket av den koden du gav mig!
Den värkar rätt rörig! :S


EDIT:
Så här ser en del av koden ut:
sidan informationen skickas till:
index.php?a=login
Den input formen ma skriverin anv namn i:
nick
Den input formen ma skriverin anv pass i:
pass


Svara

Sv: Microsoft Internet controls !?

Postades av 2006-04-28 12:49:04 - Sven Åke Persson

mmm... Can't win them all.
Din ide är bra men du måste först lära dig hur Inet kontrollen funkar.
Lägg koden i en form och provkör.
Gå in på länken och kolla hur det ser ut där.

Om du tycker koden är rörig får du börja skriva i VB för nybörjare.

Keep on the god spirit
Sven


Svara

Sv:Microsoft Internet controls !?

Postades av 2006-04-28 13:00:49 - Tobias Lindberg

okej tack!
Men det är vissa saker i koden som jag inte förstår tillexempel detta:
ret = InStr(sChunk, "Pressure (altimeter)")
Gör den kod raden så at de letar upp var någon stans på sidan där det stå Pressure (altimeter) eller?
Och se denna kod :
sPressure = Mid$(sChunk, ret + 95, 4)
vad gör den?
Jo ha provat att kopera kod och köra den precis som den är men det blir fel det står Bromma QH Fel i statusbaren eller vad det heter!

Det är så att en del av minna kompisar använder detta program och det är lite störigt när helt plötsligt så popar det upp en internet sida som loggar in m.m och då under den tiden så kan men inte göra något vid datorn för att jag använder sendkeys ..
Så jag måste ta mig runt detta, och så vill jag hälst ha "sidan" i internet controls för att användaren ska kunna se vad programet gör m.m.


Svara

Sv: Microsoft Internet controls !?

Postades av 2006-04-28 14:07:29 - Sven Åke Persson

mmm... ang Felet du har förmodligen problem att få Inet kontrollen att funka
pga att din brandvägg inte släpper ut den.

Börja med att kolla om du överhuvudtaget kommer ut på nätet med din Inet1
Ta Aftonbladet eller vilken du tycker.
ret innnehåller på vilken plats Pressure(altimeter) står
När jag hittat den platsen tar jag ut 4 tecken som står på plats ret + 95 tecken framåt.
Dvs om du kollar http://weather.noaa.gov/weather/current/ESSB.html
så plockar jag QNH satsen idag 1013


Svara

Sv:Microsoft Internet controls !?

Postades av 2006-04-28 14:50:54 - Tobias Lindberg

Jo jag har provet och fått det att funka jag gjorde så att jag la ut en "WebBrowser" på min form och skrev i from_load WebBrowser1.Navigate "http://www.aftonbladet.se" ! och det funka! och jag har ingen brandvägg som stoppar det! :/

EDIT:
Jag altså jag fick inte koden att funka, asså jag fick bara det att funka med att connecta till en internet sida!


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 723
27 958
271 751
454
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies