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


Läsa in text från annat program

Postades av 2005-10-14 21:00:26 - Marcus Bylsäter, i forum visual basic - allmänt, Tråden har 6 Kommentarer och lästs av 803 personer

Aloha!

Om jag har handtaget till ett annat program, kan jag då komma åt textrutor mm och läsa vad som står i dessa rutor?

mvh Marcus


Svara

Sv: Läsa in text från annat program

Postades av 2005-10-16 15:35:10 - Sven Åke Persson

För att sätta dig på spår läs om API SendMessage
<code>
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Const EM_GETLINECOUNT = &HBA
Const EM_GETLINE = &HC4
Private Sub Command1_Click()
Dim lngCount As Long
'Hämta antal rader i Text1
lngCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
MsgBox lngCount & " rader i TextBoxen"
End Sub
Private Sub Command2_Click()
Dim buffer As String, radNr As Long, ret As Long
buffer = String$(100, 32) 'lägger upp en buffer på 100 space
radNr = 5
On Error Resume Next
ret = SendMessage(Text1.hwnd, EM_GETLINE, radNr - 1, ByVal buffer)
'ret innehåller antal tecken i raden
buffer = Left$(buffer, ret)
MsgBox buffer & String$(2, vbCrLf) & ret & " tecken i raden"
End Sub
</code>
Sök upp alla EM konstanter det finns en uppsjö


Svara

Sv:Läsa in text från annat program

Postades av 2005-10-16 22:47:57 - Marcus Bylsäter

Tack för hjälpen!!

Jag har letat en del på nätet också och nu funkar det, dvs jag kan läsa i andra programs textrutor mm.......men........inte i program gjorda i Java......någon som vet varför och hur man kan åtgärda detta?

mvh Marcus


Svara

Sv: Läsa in text från annat program

Postades av 2005-10-16 23:07:36 - Niklas Jansson

Varför:
Eftersom Java kör en Virtual Machine, dvs själv renderar alla visuella grejer osv.

Det du skulle kunna göra är eventuellt att hacka dig in i själva JVM-koden och försöka hitta resp. variabel, men det är ingen lättare uppgift direkt.


Svara

Sv:Läsa in text från annat program

Postades av 2005-10-17 04:25:47 - Sven Åke Persson

Nyfiken.Hur gjorde du för att ta reda på handtaget (hwnd) för den TextBox
i det andra programmet som du ville komma åt ?


Svara

Sv: Läsa in text från annat program

Postades av 2005-10-17 15:40:38 - Sven Åke Persson

Tror att jag kom på det själv !?
En Form med en List1 box och en BasModul
<code>
Option Explicit
Private Sub Form_Load()
'in a form
Me.AutoRedraw = True
EnumChildWindows GetDesktopWindow, AddressOf EnumChildProc, ByVal 0&
End Sub
</code>
<code>
Option Explicit
'in a module
Declare Function GetDesktopWindow Lib "user32" () As Long

Declare Function EnumChildWindows Lib "user32" _
(ByVal hWndParent As Long, ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Function EnumChildProc(ByVal hwnd As Long, _
ByVal lParam As Long) As Boolean
Dim sSave As String, sLen As Long
'Get the windowtext length
sSave = String$(64, Chr$(0))
'get the window text
GetWindowText hwnd, sSave, Len(sSave)
sLen = InStr(sSave, Chr$(0)) - 1
'remove the last Chr$(0)
sSave = Left$(sSave, sLen)
If Left$(sSave, 1) > Chr$(33) Then _
Form1.List1.AddItem sSave & " hWnd = " & hwnd
'continue enumeration
EnumChildProc = True
End Function
</code>


Svara

Sv:Läsa in text från annat program

Postades av 2005-10-18 12:00:37 - Marcus Bylsäter

Det där ser ungefär ut som det jag använde mig av.

Jag tog delar ur ett program som jag laddade ner från www.planet-source-code.com men som jag sa tidigare så hjälpte det ju inte mig i det här fallet.

En annan fråga:

Vet nån om det går göra ett program som loggar in på en sida på internet och kopierar information därifrån i t.ex 10 minuters intervaller?


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 722
27 958
271 751
372
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