Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Refresh ListView With APIs


How can I refresh a ListView using APIs? SendMessage? What arguements? Thank you




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Capturing (Wave APIs), Compressing (ACM APIs) And Sending Over Socket Sound
Hi.
Here is a prog me and my friend coded recently. It's a simple example how to capture, compress sound and train it through the internet to another location. We found it difficult to find any tutorial on this topic. We tried to ask some guy for source code of similar program to use it for eductional proposes, but he happened to be greedy and try to sell for 500USD. So we decided to share it with everybody so you could save your time.

CCCP Soft

How Can I Open Ms Excel File From Should I Use APIs If Yes Then Which APIs
how can I open ms excel file from should i use APIs if yes then which APIs ...?

Listview Refresh
I am populating a listview control with approx 1500 records. The problem I have is that the list takes approx 5 seconds to populate and the listview flashes constantly due to the redrawing of the list. Ideally I'd like to pause the redraw before the list is populated and redraw it after.
I have tried setting the visible property to false before an update and making the control visible after and the list takes less than a second to populate!!! Can anybody help me stop the list flashing?

How To Refresh Listview Help
I suppose my listview can refresh all record when SearchName is pressed
any one can help me pls? Thanks in advance
Regards,

my code is this:

Code:
Private Sub SearchName_Click()
'set everything up

Dim strSQL As String

If txtnama.Text <> "" Then
con_Data.BeginTrans
On Error Resume Next
'find Productid from tabel
'msql = "select * from product " & _
" where productid='" & txtkode.Text & "'"
'connect to the database
' Set objCn = New ADODB.Connection
' objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "
ecordsetpaging.mdb;" & _
"Persist Security Info=False"
' objCn.Open

'set up the recordset (but we dont fill it until after setting paging info)
' Set objRs = New ADODB.Recordset
strSQL = "SELECT productid, productname, unit, partnumber, brand, location, " _
& "pcsperbox, inrperbox, colour, purchaseprice, saleprice " _
& "FROM product " _
& "where productname >= '" & txtnama.Text & "'" _
& "ORDER BY productname "
' strSQL = "SELECT FName, LName, DOB, EmpNumb, DOH " _
& "FROM tblemployeeinfo " _
& "ORDER BY LName "

'to ensure we get a RecordCount for our label, set the cursor location to Client
Rs.CursorLocation = adUseClient

'set up the paging.
'the page size specifies how many records are on each page
Rs.PageSize = intRecordsPerPage

'the cache size specifies how many records should be stored in memory
'If Cachesize and PageSize are equal (as they are here) then only
'the records to be displayed will be cached in the recordset
Rs.CacheSize = intRecordsPerPage

'open the recordset - as there is no WHERE clause on the query, all 31 records
'in the included example db table will be captured in the recordset.
Rs.Open strSQL, con_Data, adOpenStatic, adLockReadOnly
lblRecordCount.Caption = Rs.RecordCount & " records are contained in the recordset."

'PageCount simply tells us how many pages there are in our recordset object
intPageCount = Rs.PageCount

'show the data
intPage = 1
'Call HflexGrid
'MSHFlexGrid1.Visible = True
Call ShowPage
con_Data.CommitTrans
SearchName.Enabled = False
Else
MsgBox "Pls fill-in id"
End If

End Sub


Code:
Private Sub ShowPage()
'shows a "page" of records

Dim intRecord As Integer
Dim lvwItem As ListItem

'move to the appropriate page of the recordset
Rs.AbsolutePage = intPage

'clear the control
lvw.ListItems.Clear

'The For loop will display just the number of records we specified
For intRecord = 1 To Rs.PageSize
'add the data to the control
'(change these lines to suit your fields, and the control you are using)
Set lvwItem = lvw.ListItems.Add(, , Rs.Fields.Item("productid").Value)
lvwItem.SubItems(1) = Rs.Fields.Item("productname").Value
lvwItem.SubItems(2) = Rs.Fields.Item("unit").Value
lvwItem.SubItems(3) = Rs.Fields.Item("partnumber").Value & vbNullString
lvwItem.SubItems(4) = Rs.Fields.Item("brand").Value & vbNullString
lvwItem.SubItems(5) = Rs.Fields.Item("location").Value & vbNullString
lvwItem.SubItems(6) = Rs.Fields.Item("pcsperbox").Value & vbNullString
lvwItem.SubItems(7) = Rs.Fields.Item("inrperbox").Value & vbNullString
lvwItem.SubItems(8) = Rs.Fields.Item("colour").Value & vbNullString
lvwItem.SubItems(9) = Rs.Fields.Item("purchaseprice").Value & vbNullString
lvwItem.SubItems(10) = Rs.Fields.Item("saleprice").Value & vbNullString
'move to the next record within this page
Rs.MoveNext
'if we have run out of records (which we may on the last page) exit the loop
If Rs.EOF Then Exit For
Next intRecord

'show the page number
lblPageInfo.Caption = "Page " & intPage & " of " & intPageCount

'enable/disable buttons as apt
cmdPrev.Enabled = (intPage > 1)
cmdFirst.Enabled = (intPage > 1)
cmdNext.Enabled = (intPage < intPageCount)
cmdLast.Enabled = (intPage < intPageCount)
End Sub

How Can I Refresh The Listview?
Hi,

How can I refresh the listview? What is the code?

Regards,

Seema_S

Listview Refresh
Hi all,

I have embedded listview control in IE. Some times I found it behaves like strange. It is not refreshing; It keeps the values but not showing (Not refreshing). Please let me know how to overcome this problem? Thx in adv

-Karthick

Refresh A Listview
Hi,

need to determine how to refresh the data in a list view when I select an item in a dropdown. What is happening now, is that everytime I choose a new item from the drop down, the 'new' data is added to the data already in the listview. I need the listview to empty and then add the new data. Thanks for the help.

ListView Refresh
To refresh a listview, you need to do a couple of things.

First, you need to add a line of code to the procedure where the listview would need to be refreshed:

Listview.ListItems.Clear
{where "Listview" is the name of the listview control}

This will erase all the data that is in your listview.

Then, you need to call the procedure which you used to populate the listview in the first place.

Thus, you code in the procedure that needs the listview updae might look somthing like this:

. . . {Primary Code for Procedure}
Listview.ListItems.Clear
LoadListview {the sub used to initially fill the listview}
Exit Sub
End Sub

This is the only way that I have discovered to refresh the data in a listview.

LISTVIEW Doesn`t Refresh
hi there - this is really bugging me.

i have a form OPTIONS that contains various controls - one of which is a LISTVIEW LV1. ( standard VB6 control )

LV1 is prepopulated with values from the registry. Loading the form everything is fine. if i then bring another window over the top of the form ( i.e lose focus from OPTIONS ) and then go back to the form - everything is still ok.

BUT if i click on an item on LV1 , then lose focus on the form and click back LV1 has dissapeared, i have to drag the form off the visible screen and back again for it to repaint.

I`ve tried using various events to trigger a refresh - but it doesn`t seem to work .

Private Sub Form_GetFocus()

this never fires - i presume its because i have active controls on the form.


Private Sub LV1_LostFocus()
Options.refresh
LV1.refresh
End Sub

this fixes the Listview refresh problem but breaks other control refreshes on the form.



Any ideas on how to get round this ? i don`t understand why it is only the LISTVIEW that is causing problems.


thanks in advance

dave

LISTVIEW: Refresh && Highlight
whenever i refresh a listview an item becomes highlited... is there a way to leave the list untouched?

Help On ListView Refresh Display
Hi, i currently have a listview in icon view. the user can freely drag the icons to set its position. my problem is that when the user drags the icon to the sides, the scrollbars of the listview appear. when the user drags the icon back to its original position, still the scrollbar is visible. how can i restore the initial display of the listview? i mean the one which doesn't have the scrollbars.

any help would be greatly appreciated.

Refresh Record At Listview
hello ,please help.i want to refresh the record from the listview after delete from record from the listview.now the problem i face is when i delete the record from the listview it need to close the listview and open agian only can see the refresh from the database.

here is my code:

Code:
Dim rs As ADODB.Recordset
Dim conDataConnection As Connection
Dim list_item As ListItem

Set conDataConnection = New Connection
conDataConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & _
"Overtime.mdb;Persist Security Info=False"

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM Temp", conDataConnection, adOpenStatic, adLockOptimistic

' Load the data.
Do While Not rs.EOF
Set list_item = ListView1.ListItems.Add()
list_item.SubItems(1) = rs!EmployeeName.Value & ""
list_item.SubItems(2) = rs!EmployeeNo.Value & ""
list_item.SubItems(3) = rs!Designation.Value & ""
list_item.SubItems(4) = rs!department.Value & ""
list_item.SubItems(5) = rs!Shift.Value & "" 'method of invalid use of null .Value & ""
list_item.SubItems(6) = rs!OvertimeDate.Value & ""
list_item.SubItems(7) = rs!TimeFrom.Value & ""
list_item.SubItems(8) = rs!TimeTo.Value & ""
list_item.SubItems(9) = rs!Breaktime.Value & ""
list_item.SubItems(10) = rs!OtRate.Value & ""
list_item.SubItems(11) = rs!CategoryDay.Value & ""
list_item.SubItems(12) = rs!WorkDescript.Value & ""
list_item.SubItems(13) = rs!othours.Value & ""

' Get the next record.
rs.MoveNext
Loop
.Refresh'error highlight here
rs.Close


thanks for help!

Listview, Refresh Or Remove
How can i prevent entering the same data in a listview control.
I have a listbox with different names. Depending on the name
selected all types of data will fill the listview control with columns... .e.g
address, work number, emplyee id etc... this works fine

The problem is when I select a different name, the first selection stays in the listview along with the new selection or if I select the same name it adds it again. is there a way to refresh or remove the first choice

THanks in advance!@

Refresh Record At Listview
hello ,please help.i want to refresh the record from the listview after delete from record from the listview.now the problem i face is when i delete the record from the listview it need to close the listview and open agian only can see the refresh from the database.

here is my code:
Code:Dim rs As ADODB.Recordset
  Dim conDataConnection As Connection
  Dim list_item As ListItem

      Set conDataConnection = New Connection
      conDataConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & _
                "Overtime.mdb;Persist Security Info=False"
   
      Set rs = New ADODB.Recordset
     rs.Open "SELECT * FROM Temp", conDataConnection, adOpenStatic, adLockOptimistic
      
      ' Load the data.
    Do While Not rs.EOF
        Set list_item = ListView1.ListItems.Add()
        list_item.SubItems(1) = rs!EmployeeName.Value & ""
        list_item.SubItems(2) = rs!EmployeeNo.Value & ""
        list_item.SubItems(3) = rs!Designation.Value & ""
        list_item.SubItems(4) = rs!department.Value & ""
        list_item.SubItems(5) = rs!Shift.Value & "" 'method of invalid use of null .Value & ""
        list_item.SubItems(6) = rs!OvertimeDate.Value & ""
        list_item.SubItems(7) = rs!TimeFrom.Value & ""
        list_item.SubItems(8) = rs!TimeTo.Value & ""
        list_item.SubItems(9) = rs!Breaktime.Value & ""
        list_item.SubItems(10) = rs!OtRate.Value & ""
        list_item.SubItems(11) = rs!CategoryDay.Value & ""
        list_item.SubItems(12) = rs!WorkDescript.Value & ""
        list_item.SubItems(13) = rs!othours.Value & ""
      
       ' Get the next record.
        rs.MoveNext
    Loop
      .Refresh'error highlight here
     rs.Close

Thanks for help!



Edited by - monchichi on 10/2/2007 8:23:32 PM

Refresh ListView After Sorting
i need help in refreshing my listview after sorting.
1st question: when i sort the record # in descending order it worked but when i sort in Ascending something's wrong,
                   sample:
                           Record
                               1
                               2
                               3
                               10
                        after sorting(descending):
                               Record
                                3
                                2
                                1
                                10
                         sorting(Ascending again)
                             Record
                                 1
                                 10
                                 2
                                 3
2nd question: after sorting when click the refresh button some data in listview were empty, what's wrong to my code?


here's the code:
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

Dim colVar As ColumnHeader
    ' If the ListView is already sorted by the clicked column, _
    ' just reverse the order. Otherwise, sort the clicked column ascending.
    If ListView1.Sorted = True And ColumnHeader.SubItemIndex = ListView1.SortKey Then
        If ListView1.SortOrder = lvwAscending Then
            ListView1.SortOrder = lvwDescending
        Else
            ListView1.SortOrder = lvwAscending
        End If
    Else
        ListView1.Sorted = True
        ListView1.SortKey = ColumnHeader.SubItemIndex
        ListView1.SortOrder = lvwAscending
    End If
   End Sub

' Refresh button
Private Sub Load_listview()
Dim intload As Integer

strsql = "Select *from tblurl"

Set rs = New ADODB.Recordset
    rs.Open strsql, connectstring(), adOpenKeyset, adLockPessimistic, adCmdText
    
ListView1.ListItems.Clear

For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems.Remove 1
Next i


While Not rs.EOF
      intload = intload + 1
      ListView1.ListItems.Add , , rs("Record")
      ListView1.ListItems(intload).ListSubItems.Add , , rs("dtDate")
      ListView1.ListItems(intload).ListSubItems.Add , , rs("Category")
      ListView1.ListItems(intload).ListSubItems.Add , , rs("Type")
      ListView1.ListItems(intload).ListSubItems.Add , , rs("URL")

      rs.MoveNext
      
Wend

End Sub





Edited by - edd_hills on 3/28/2007 7:46:48 PM

Listview Refresh Double Data
I have a listview with 4 columns. My problem is I need to do a refresh. but when i do listview1.refresh everything doubles. How can I fix this?

Refresh ListView Problem.. Urgent
hai everyone, i got a problem to refresh my listview by clicking on a combobox

-> i got a combo box call cboby N with the list -> Status, CompCode,CompName.

so , when i click on cboby=Status, the listview will refresh all the status whether active or non active in the listview.

When i click on cboby="CompCode" , it will list by compcode by ascending

and cboby=CompName , it will list by compname by ascending

how do i refresh the listview by clicking on the combo box

Refresh A Database And A Listview At Same Time
Friends I go to need your aid I am thus I wanted you I helped me to codify a routine that goes the database to search values of 2 in two seconds (this already is defined in timer)
I have
do while not rs.eof
codigo=rs.fields("cod")
descri=rs.fields("descricao")
quant=rs.fields("quant")

it goes to run all the records of recordset,
I want this values above (cod,descri,quant) to be compared to each item in a listview, its enought use the code to compare, if codigo different from de first item it writes the new code on the listview else it goes check the next value, and always like this until the end of the listview.
can you helpme ?

rs.movenext Loop

Listview: Refresh The Current Sort?
Hi. I've got a listview that is ordered, and user can click on column headers to re-sort by column values.

User adds more items to listview, but they always appear dead-last in the listview.

When adding a new listitem, I'd like the listview to re-sort on whatever the user previously selected.

I've tried the following logic to no avail:
CODElvwMessages.Refresh

Listview Refresh Doubling Data
I have a listview with 4 columns. My problem is I need to do a refresh. but when i do listview1.refresh everything doubles. How can I fix this?

How To Do For A Listview Don't Refresh When An Item Change ?
Hello,

I have a listwiew in lwreport format. When an item of the list change, all the list seems refresh. Is it possible that all the list don't refresh when an item change, but only the item which have changed?

Thank you for your responses
Best Regards
P.Gendreau

How To Not Refresh A Listview When A Item Change?
Hello,

I have a listview in lvwreport view. I have to change item all the time in the list, and the list seems always refresh. Is it possible that the list no refresh when a item change?

Thank you for your answer.
Best regards
PGendreau

How Can I Do For A Listview Don't Refresh When The Value Of An Item Change?
Hello,

I have a listview in format lvwReport. When the value of an item change, the list is refresh, and the wiew go to the item change and i have to come back to the view with the "ascensor". I would want the value of the item change without changing the view in the list.

Thank you for your responses
Best Regards
P.Gendreau

Is It Possible That The Listview Don't Refresh All The List When A Change Occur?
Hello,

when the value of an item in a listview change, all the list is refresh.Is it possible to refresh only the line corresponding of the item which change?
Thank you for your responses
Best regards
P.Gendreau

How Can I Do For A Listview Don't Refresh The List When An Item Change?
Hello,

I have a listview in format lvwReport. When the value of an item change, the list is refresh, and the wiew go to the item change and i have to come back to the view with the "ascensor". I would want the value of the item change without changing the view in the list.

Thank you for your responses
Best Regards
P.Gendreau

Refresh Listview Control Contents From Access Database?
The listview control had load all the record from database.....and i update one record in the database......so in the form...i want the listview to display updated record in the database...i had test the listview.refresh method.....it just repaint the listview control and not load the updated data....izzit i need to open a new adodb connection and load the updated record to the listview again...

is there any other ways to do so?

VB novice...

Cannot Refresh Data Using Crystal Viewer Refresh Method
I am using crystal report 8.5 and Visual Basic 6.0

I get an error for this code.

crviewer1.refresh

error :

Method 'Refresh' of object 'IcrystalReportViewer' Failed


thank you ....

regards pragash...

MSFlexGrid Refresh Causes My Comboboxes To Refresh???
What in the heck is happening?? On a form I have 2 combo boxes, the first for suppliers and the second for contacts. The contacts is filled from the database after the supplier is chosen. On my Flexgrid, I have several pop-up forms/controls. When I open them (For instance the DateTimePicker) and select the date from my pop-up control, my screen flickers and my contact is blank again. The supplier stays like it was. I can't exactly paste the code for this, since I am at about 5,000 lines and counting on this Application.

APIs Not In NT
i've learned that not all API's available for 9x are available for NT and vice versa. how is it possible to use such functions across the board?

Aim,yim,icq Apis?
ive looked for some api, havent found it. I need to get all the contacts in the buddy list for each one. Any ideas?

Vb.net And MS Sql APIS
Hi all
I need help here:
do you guys know where i can get APIS that would interface
an vb.net application with an MS SQL Server.

What i want to do is the following

Once a user is logged in , i want to populate a list of all the Database in the SQL server, then populate a list with all the owners for all the databases and
finally get a list of all the tables for each onwers for each databases
so i can write my sql like dbname.onwername.table

I am new with MS SQL and i dont know all the SQL statement to do that
I looked around and it sounds fairly complicated so i fugure there may exists some API's to do that

Thanks

VB6 APIs Like C++!
Ok i dont take credit for this as i didnt make it...found it online
This is the best thing i have ever seen in my programming life...
you can use apis just like in C++ you dont need to declare them anymore
just do it C++ way ex.
FindWindow("notepad",vbnullstring) without declaring findwindow api
it has all APIs,Constants, and Types
Just add it to your references and that's it...you can even look at them in object browser
Trust me this is a MUST HAVE if you use apis ALOT
im in love with it already...
Enjoy it

Using APIs
I read a response to a Q the other day from Ellis Dee and they put some code up using APIs. My question. Where Do I learn what APIs are useful and how they can be implemented? Also how do I find out what constants I use for what API???? I.e. What is this for????
Code:
Public Const ABN_STATECHANGE = &H0

How To Use APIs
I've decided to give in and start usings APIs. My first attempt is with using SENDMESSAGE.The example I am trying to use is to search a list box for an item by entering text. After the declaration of the API there is a constant declaration "Const LB_FINDSTRING = &H18F". How do you know when to use this constant and what does it mean?

APIs
hi every one
please tell me some cute APIs you know.

APIs
Hi
   At this time I am working in Visual Basic
   I want to use APIs in My coding for speeding up execution of the program.
  But I am not getting this idea where to use which API funciton From where I can get this idea.
Bye
  

APIS
I need to be able to detect when a Digital Camera becomes active. The Camera shows up as a drive letter and once it does, I have no problem. However I would like to be able to popup my app when the camera-drive/ram drive becomes active.

APIS
Hi!
I wish to run only one instance of my app which consists of several modules ,froms etc...
I use the APP.Previnstance property to check if a
previous instance is running.I need an API to detect a previous instance running of the application get a handle to that and maximize it in case the exe is run again..

Any help would be appreciated

Please Help With APIs
i am trying to use APIs for the first time. please help me as to how i should use, say the
"sendmessage" API.
i used the API viewer to declare the API.
i dont understand the syntax for the sendmessage .
what does hwnd , wMsg ,wParam , lParam etc...
what should i substitute??
please help

Using APIs
I'm new at using system calls in VB.
I'm trying to use - NetUserGetInfo - to retrieve information about specific NT users (to determine if the account exists and has specific permissions), however I don't know where to begin to set up this command.

Can anyone help?
Thank You.

Help In APIs
Hai,

I have to find out if a system is shut down or logged off using VB. Could anyone give me the code for this.

There is one API which shuts down or Logs off the system, but i dont need that. I have to detect these operations alone.

Thank you,

Regards,
K. Sripriya

Printing APIs...
I tried using the perscribed API in Access2000 VBA, but keep getting error message : Printer. variable not defined. Can somone help?

I would like to print a series of TIFF images in a given directory directly to a default printer. If there is a better way than using the API

StartDoc
StartPage
EndPage
EndDoc
EnumJobs

Please let me know. Thanks.

Edit: Do not hijack other people's threads

Intercept APIs
Can someone tell me why my program crashes after I get the calue for IsDebuggerPresent? How come it doesn't work the way I want it to? Try the code out yourself and you'll see what I'm talking about. I'm so close to making an API interceptor but it won't work. Don't worry. This isn't for hacking or anything like that. I just used IsDebuggerPresent because it has no arguements.


Code:
'frmMain
Option Explicit

Private Declare Function IsDebuggerPresent Lib "kernel32" () As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal ProcessHandle As Long, lpBaseAddress As Any, _
lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, _
lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lib As String) As String

Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

Private btOldAsm(4) As Byte

Public Function RemoteHook(ByVal NewAddr As Long) As Boolean
Dim BytesWritten As Long
Dim hModule As Long
Dim hFnc As Long
Dim btNewAsm(4) As Byte
Dim PID As Long

hModule = GetModuleHandle("Kernel32")

If hModule = 0 Then
hModule = LoadLibrary("Kernel32")
MsgBox "LoadLibrary Error", vbCritical, "Error": Exit Function
End If

hFnc = GetProcAddress(hModule, "IsDebuggerPresent")
If hFnc = 0 Then
MsgBox "Function Error", vbCritical, "Error"
Exit Function
End If

' save the first 4 bytes of the function to hook
ReadProcessMemory OpenProcess(PROCESS_ALL_ACCESS, 0, GetCurrentProcessId), ByVal hFnc, btOldAsm(0), 5, BytesWritten

If BytesWritten <> 5 Then MsgBox "BytesWritten Error", vbCritical, "Error": Exit Function

' *** possible extension
' *** create a proxy function in the remote process
' *** to call the hooked function

' relative JMP address
NewAddr = NewAddr - hFnc - 5

btNewAsm(0) = &HE9 ' JMP near
CopyMemory btNewAsm(1), NewAddr, 4 ' rel. Addr

' overwrite function with JMP instruction
WriteProcessMemory OpenProcess(PROCESS_ALL_ACCESS, 0, GetCurrentProcessId), ByVal hFnc, btNewAsm(0), 5, BytesWritten

'lblGetModuleHandle.Caption = "GetModuleHandle(" & Chr(34) & "Kernel32" & Chr(34) & ")=" & GetModuleHandle("Kernel32")
'lblLoadLibrary.Caption = "LoadLibrary(" & Chr(34) & "Kernel32" & Chr(34) & ")=" & LoadLibrary("Kernel32")
'lblGetProcAddress.Caption = "GetProcAddress(hModule, " & Chr(34) & "IsDebuggerPresent" & Chr(34) & ")=" & GetProcAddress(hModule, "IsDebuggerPresent")

RemoteHook = BytesWritten = 5

End Function

Private Sub Form_Activate()
If RemoteHook(AddressOf MyFunction) = True Then MsgBox "Success"
MsgBox IsDebuggerPresent
End Sub



'--------------------------------------------------------------------------
'modFunction
Public Function MyFunction() as Integer
MyFunction=10
End Function

272 New APIs? Droolalicious!
On Tuesday, the software giant will begin licensing 113 communications protocols used by the Windows desktop operating system to work with the Windows Server products. On Aug. 28, Microsoft will release 272 previously undisclosed application programming interfaces (APIs) used to ensure that third-party software works well with Windows.

Link here

Yes! Sounds like fun to me... any thoughts as to whether us VBers will get a knock at these?

APIs Not Working
I am a novice vb programmer - attempts to use mciSendString and sndPlaySound don't seem to work to play .mp3s or .wav files -using win 2000. I've copied the code directly from books and routines on web - any suggestions would be appreciated!

I'm Lost On Using APIs
I would like to know how do I push buttons in a program that my propgram just opened,
I mean that my program open ws-ftp and I wish to press on a button in ws-ftp,
how do I do that?
thanks from advance

Help With VB String And APIS
Sorry if this is the wrong forum...I'm tearing my hair out trying to figure this out:

I have a VB DLL (called test.dll) function like this (compiles fine):



Public Function test(ByVal myString as String) As String
Open myString For Binary Access Read As #1
close #1
return "TEST"
end Function


And Now I have the Caller Program:

Private Declare Function test Lib _
"test.dll" (ByVal myString as String) As String

Private Sub Form_Load()
theanswer= test("HI.txt")
End Sub


However it doesn't return "TEST" as it should...in fact it gets caught up on the open command....I read that it might be that the myString in the DLL is a pointer....how can i resolve this?

WinXP APIs?
Hmm... I'm sure WinXP includes many new APIs... but where to find them? Does anyone know where I can get a list of these new APIs? Thanks!

Translation APIs?
Okay, here's a long shot....
Does anyone know of any APIs that will enable you to translate one string into another language (preferable french - english and vice versa)?
Failing that, where I could find on the net a nicely structured english - french (again, and vice versa) document/dictionary?

Cheers all

Copyright 2005-08 www.BigResource.com, All rights reserved