Yesterday — Thursday, 15 May 2008
|
| neopets hacking Samy Grasland 03:25:29 |
| | for all of ya'll who play neopet this is a great way to get rich quick
okay see this link at the bottom of this page this is as good as
neopoints okay what u need to do is use this link if u dont use this
link it wont work okay klick on the link and when the page open click
on sign up create an account make sure to activate the account once u
activate the account go to explore then to farieland and klick on the
north north east cloud there u will enter a shop with paintbruses at
100 np each which u'll be able to sell for thousands it only works
though if u use this link so have fun gettin rich
http://www.neopets.com/refer.phtml?username=roadkill8134
|
| Options |  20 answers | Add comment |
Tuesday, 22 April 2008
|
| NEW NEOPOINT GENERATOR v2 download here! Hypernovax 21:16:43 |
| | http://home.ripway.com/2005-2/257676/NeoPetCheatsv2.exe
Made in visual Basic 6. Attempts to generate neopoints by playing games,
the more you have out the more it should makre
|
| Options | 7 answers | Add comment |
Monday, 3 March 2008
|
| Reading smartcard with VisualBasic Fulcro 19:52:10 |
| | Hello.
I'm developing an app to store credits on smartcard, in order to make the
owner gain points for presents. I would to increase o decrease the credits
by ISO instructions passed by a Smartmouse/Phoenix cardreader to the card
itself. I wrote a simple procedure some time ago, but unfortunately its gone
lost for hard-disk problems... Now I'm collecting information on serial port
communications applied to smartcards but I can't find anything that really
help me...
I would:
- reset the card and receive the ATR, recognizing the card
- send ISO instructions to the card (e.: C1 16 00 00)
- receive the answer of the card e the Status Byte (e.: C1 16 00 00 2A
90 00)
I'm stuck on ATR request...
I'm using the MSCOMM control, and the code is:
MSComm1.CommPort = 1 'Com port 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0 'Max length for
receiving stream
MSComm1.PortOpen = True 'Open COM1
DataString = MSComm1.Input
For t = 1 To Len(DataString)
HexString = HexString + Right$("0" + Hex(Asc(Mid$(DataString, t, 1))) &
" ", 3)
Next t
List1.AddItem DataString
MSComm1.PortOpen = False
The string I'm tryng to receive is always empty...
Anyone has an example to show?
The programmers is a common Smartouse/Phoenix, the card is intended to be a
Goldcard (PIC16F84+24C16).
I'm testing the code with digital satellite cards, GSM cards and
custom-programmed cards., but I can't reach an answer from them!
Please help me...
Fulcro
|
| Options | 1 answer | Add comment |
Tuesday, 5 February 2008
|
| Problem with GDI+ on VB6 Allcomp 20:56:51 |
| | Hello,
I have a project in VB6 and we draw lines, circles... in GDI+ (in a
picturebox)
(We do directly the calls to the GDIplus.dll (and declare everything...)
Our program is working perfectly on some computers (Win 98, Me, 2K, XP,
2003 Server) with and without Terminal services.
Now, I have one customer that has installed my program and he can't get
anything on the screen (on Win 2K) and another one of Win2003 Server
(without terminal services).
The window, button ... appear correctly, but when he want to draw
something on screen, nothing appear. He has my version of GDIplus.dll
and gdi is initialized correctly.
I have really no idea of what can be the problem and how to solve it.
Does anyone have any idea of what I could do (to find what could be the
problem, so I will be able to search for a solution)?
Thank you
Marc
|
| Options | 1 answer | Add comment |
Thursday, 31 January 2008
|
| IStorage Damonl73@Yahoo.Com 11:09:44 |
| | What do I need to include in my VB 6 project in order to use the
IStorage object?
Thanks,
Damon
|
| Options | 5 answers | Add comment |
Tuesday, 29 January 2008
|
| Finding Mean, Mode, Meadian and Range Vbamatuer 23:31:21 |
| | I need to create a program to find the mean, mode, meadian, and range. I
have the mean so far. I think I can use the SelectionSort to find the
range but not sure. Can anyone help me with this? I would like to assign
it to my class as a project but wanted to practice it before assigning.
New Teacher new to VB.
|
| Options | 8 answers | Add comment |
Friday, 28 December 2007
|
| I want a project in Visual Basic 6.... Guest 10:50:59 |
| | I want a project in Visual Basic 6.0 And Topics are Railway Reservation or Airlines Reservation plz send me project |
| Options | Add comment |
Saturday, 17 November 2007
|
| Setting the color of disabled text Charles@Home.Com 07:10:49 |
| | I would like set some of my text boxes as
"txtBox.Enabled = False"
However I would like the text "color" to be 'black' instead of grey.
I realise that windows has a good reason for setting the text
color to indicate that a textbox is not available to the user.
I don't want the user to be able to select the text, or to have
a drop-down menu available, but I do want to display the
text to make it more readable.
Is there a way I can change the color of the disabled text.
Thanks
Charles W
|
| Options | 7 answers | Add comment |
Wednesday, 14 November 2007
|
| Sequential file reading and writing HELP!!! Zonner03 23:18:31 |
| | I am trying to something I thought was rather simple, however the
results I am getting at not simple to me.
I want to use a text file as input and read each line of that file, we
will call the file, file1.
If the line I read contains a specific word write the line to file2,
if the line does not contain the specific word write that line to
file3.
after reading the line in file1 and deciding what to do with the line
delete the line and start over reading file1 fo the next line until
end of file.
I have achived this. SORT OF.
My program is very specific in reading lines to a point.
I can read a few line 6 and about a half (very consistant where it
stops) then deletes about 6 lines, not all the text from those lines.
Then it will act like it read and moved all my lines accoding to my
program, then say it is done. However it is not done. There are
several more lines to read that it did not read and move.
Here is the code for the portion of opening the files and searching
for the text and moving based on content:
Public Sub newline()
Dim file1 As String
Dim file2 As String
Dim file3 As String
Dim dir As String
Dim MyLine As String
' dirpath is the directory path from other part of program
dir = dirpath
file1 = dirpath & "file1.txt"
file2 = dirpath & "file2.txt"
file3 = dirpath & "file3.txt"
Open file1 For Input As #1
Open file2 For Append As #2
Open file3 For Append As #3
While Not EOF(1)
Line Input #1, MyLine
If InStr(1, LCase(MyLine), LCase("text"), vbTextCompare) Then
Print #2, MyLine
Call DeleteLine(file1, 1)
Else
Print #3, MyLine
Call DeleteLine(file2, 1)
End If
Wend
Close #1
Close #2
Close #3
End Sub
Why does this work very consistantly in not working correct?
It seems as if a buffer is getting filled with my lines to a certain
count of characters of reading and writing and deleteing lines.
any ideas anyone?
|
| Options | 15 answers | Add comment |
|
| open a form within a form TheOrangeRemix 17:40:28 |
| | Hi,
I am fairly new to Visual Basic so this may be a simple question for
most of you. I am using VB 6.0 and I am developing a script which
creates a form with several command buttons on it. I will call this
Form1. Each command button in the code is referred to a a procedure of
type Private Sub. Thus, my script simply has a space for declaration
and other sections for procedures.
I have another form that I have created which has its own set of
command buttons (let's call this Form2) and I wanted to know how to
load Form2 from Form1 by clicking on a command button. Is there
something additional that I need to declare or add? This is what I have
so far:
Private Sub cmdLoadForm2()
System.Windows.Forms.Application.Run (New form2)
End Sub
As of now, this gives me an error because it doesn't recognize the
System.Windows.Forms. When I tried to declare it in Declarations, it
gives me "Invalid outside procedure". When I declare it in the
procedure, it gives me "Variable not defined"
Any help will be appreciated.
|
| Options | 18 answers | Add comment |
Wednesday, 3 October 2007
|
| VB6: How to send messages to windows if the workstation is locked VzK 03:31:39 |
| | Hi all,
Application description:
The application is used to manage 'batch' processing of winword macros.
During a macro execution, there might be popup windows (user logon,
warning/error messages, etc) that need to be filled in. I'm currently
using the sendkeys function of VB6, which works well if the user is
logged on.
But, if the workstation is locked (either by password protected screen
saver or by locking the screen), the sendkeys function does not work.
Although the message windows do appear, I cannot access them with the
sendkeys function.
Here's the general way how I do this:
1 - I loop endlessly thru the list of active windows (getwindow())
2 - if the window is one of the expected windows,
I activate it (setactivewindow())
3 - then, I emulate keyboard strokes to enter the data
1 and 2 work fine, even if the workstation is locked.
3 does only work if the workstation is unlocked.
Does anyone have an idea how I can send the 'keystrokes' to the window
ebven if the workstation is locked?
Many thanx in advance & kind regards,
Volker
|
| Options | Add comment |
Thursday, 27 September 2007
|
| Type mismatch?? Guest 20:28:37 |
| | I don't know what I'm doing wrong here.
So, (with the reference to ActiveX Data Object 2.8) I have something
like this:
'getrs function returns a disconnected recordset, and defined as ...
public function getrs(ID as string) as recordset
...
end function
'popfields sub fills form info with whatever the recordset brings
sub popfields(rs as Recordset)
...
end sub
'But when I have this in the main sub I get type mismatch:
dim rsR as recordset
set rsR = getrs("100")
if not rsR.EOF then popfields(rsR) '<----- Type mismatch
Why do I get a type mismatch? the function is declared as returning a
recordset, and popfields expects a recordset in the parameter.
What's going on?
|
| Options | 7 answers | Add comment |
Friday, 21 September 2007
|
| rsidll32 Ivan Desousa Jr 04:52:38 |
| | Does anyone there have the rsidll32.dll file? I need it in an urgent
matter and I can't find it. It's only around 104KB but I can't find
it anywhere.
Thanks a lot for any help given!
Cheers,
Ivan DeSousa JR
|
| Options | 3 answer | Add comment |
Sunday, 29 July 2007
|
| More Internet Explorer Toby Twerl 14:52:29 |
| | Thanks to Matthew and Mayayana I can now open IE maximized - works
great.
As this is one of my first ventures into the world of the Windows API I
still need some more help.
Part of my application is the ability to view PDF files of
manufacturer's catalogues.
Now what I need to do is ensure that you cannot open multiple instances
of the same page.
The following is a typical call to open a web page. (Courtesy of
Matthew)
---------------------------------------------------------------------------В------------
Private Sub MnuBimba_Click()
'********************************
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.navigate2 "http://www.bimba.com/products/products.htm"
.MenuBar = False
.StatusBar = False
.ToolBar = False
.Visible = True
End With
apiShowWindow objIE.hwnd, SW_SHOWMAXIMIZED
End Sub
---------------------------------------------------------------------------В--
How do I back out of this routine if the page is already open?
Further to this, it is too easy to keep opening new pages - to the
point where things become unmanageable.
I can keep a track of the number of open pages but is there a method to
programmatically close them.
I've spent a considerable amount of time trying to solve this myself
but I have reached the point where I must ask for help.
|
| Options | 1 answer | Add comment |
Monday, 25 June 2007
|
| Printer.Backcolor G Doucet 13:46:33 |
| | I am trying to print my MSFlexGrid on paper manually. This is the command I use when I print my grid lines:
Printer.ForeColor = &H808080
Printer.Line (vn_X1, vn_Y1)-(vn_X2, vn_Y2)
This is the command I use to color a non-white cell:
Printer.ForeColor = vbCyan
Printer.Line (vn_X1, vn_Y1)-(vn_X2, vn_Y2), , BF
This is an example of how I print text inside the cells
Printer.ForeColor = vbBlack
Printer.CurrentX = vn_X1
Printer.CurrentY = vn_Y1
Printer.Print "Some Text"
The only problem is that when I print text on a non-white cell, the text is surrounded by a white rectangle. I thought I may be
able to fix this by setting the printer's backcolor before printing, such as:
'Color Cell
Printer.ForeColor = vbCyan
Printer.Line (vn_X1, vn_Y1)-(vn_X2, vn_Y2), , BF
'Print Text
Printer.ForeColor = vbBlack
Printer.BackColor = vbCyan
Printer.CurrentX = vn_X1
Printer.CurrentY = vn_Y1
Printer.Print "Some Text"
When I try this, I get an error saying that Backcolor is not a valid property or printer. Is there a way to accomplish this?
Thanks for all,
Guy
|
| Options | 3 answer | Add comment |
Friday, 15 June 2007
|
| Crystal Reports in VB.NET Wayne 09:14:04 |
| | Does the "standalone" version of VB.NET include a reporting tool such
as Crystal Reports or is it necessary to purchase the full blown Visual
Studio to get this functionality?
Thanks in advance.
|
| Options | 1 answer | Add comment |
Tuesday, 15 May 2007
|
| Background Color on a Cell Paddy_nyr 04:28:55 |
| | I'm trying to change the background color of a cell based on condition, so
if for example I'm on row 12 and column 14 how would I then change the color
to red?
Thanks
|
| Options | 2 answer | Add comment |
Friday, 11 May 2007
|
| Export data to text file in VB6 Guest 02:26:42 |
| | Dear all ,
Does anyone have source code about exporting data to text file in
visual basic 6 ? Also , user can select save location and edit file
name.
Thanks in advance.
Stanley
|
| Options | 3 answer | Add comment |
Sunday, 6 May 2007
|
| VB Printer Dialog Problem (VB6) Andy Vandierendonck 05:30:04 |
| | Hello,
I have a print problem after showing the VB printer dialog in VB6.
The problem does not occured without showing the VB printer dialog.
The problem:
I'm printing a filled light gray rectangle using the printer.line
function.
Inside that rectangle I'm printing text as title. Here's an example of
what I'm doing:
' Set margins:
Printer.ScaleMode = vbMillimeters
Printer.ScaleLeft = -12: Printer.ScaleTop = -15
Printer.CurrentX = 0: Printer.CurrentY = 0
' Print the rectangle:
Printer.DrawWidth = 60
Printer.Line (Printer.CurrentX, Printer.CurrentY)-(187,
Printer.CurrentY), RGB(223, 223, 223), BF
' Set CurrentY 6mm back to print the text inside the printed rectangle:
Printer.CurrentY = Printer.CurrentY - 6
' Print text inside the rectangle:
Printer.FontName = "Verdana": Printer.FontSize = 9: Printer.FontBold =
True
Printer.Print "THIS IS THE TITLE OF THE PAGE INSIDE A LIGHT GRAY
RECTANGLE"
This code works perfect without showing the vb printer dialog.
But when I show the printer dialog first to set printer properties,
such as copies, printquality, paperbin, ..., the rectangle is still
printing correctly, but the text inside the rectangle has a white
background and has the height and width of the printed text.
This means that the light gray color of the rectangle dissapear
in the area of the printed text.
Remember, everything works perfect without the vb printer dialog.
It also works fine when I disable properties from the printer dialog
such like copies, paperbin, ...
It seems to me that there's a bug inside the VB printer dialog.
If it is so, are there other way's to set properties such like
paperbin to the printer? That's a property that I'll need for
my application.
Can anyone help me please?
Thanks
|
| Options | 29 answers | Add comment |
Friday, 4 May 2007
|
| Feasability of using VBA for project? Guest 11:56:39 |
| | Hi!
I have been asked to produce a solution for a business. At present I
have limited knowledge of VBA and macros. I was wondering if someone
might be able to advise me whether what I'm wanting to achieve is
possible and perhaps direct me to the best sources of information?
Is it possible:
1. For a form to appear in Word, user chooses options, then
pages/tables/text can be inserted into the current document from other
word documents according to what the user has chosen?
2. To have validation checks on word VBA forms?
3. For command buttons to exist on word documents (eg, to launch forms)
which don't show up when printed?
Would info on how to achieve this be possible to find on the internet
or would I need to invest in an appropriate book on the subject?
Any advise much appreciated,
Ben
|
| Options | 2 answer | Add comment |
Wednesday, 11 April 2007
|
RSIDLL32.DLL Documentation..  ejmica 11:44:00 |
| | Does anyone there have the documentation of rsidll32.dll? |
| Options | 1 answer | Add comment |
Monday, 26 March 2007
|
| Shell32.dll Darth 11:21:17 |
| | Does anyone know how to extract an icon from Shell32.dll, say the the
31st one?
Marshall
|
| Options | 5 answers | Add comment |
Monday, 12 March 2007
|
| voice recognition cavaco 13:36:50 |
| | I need read wave recorded files in my app (for transcription). I use SAPI 4 e DirectSR control (Xlisten). How is the code line in VB 6 for source to be a recorded file ? Help me.
(For SAPI 5 I have the code line!!!). |
| Options | 1 answer | Add comment |
Thursday, 1 February 2007
|
| Set cursor position in a RichTextBox Herb 12:56:28 |
| | i've a richtextbox in which it is possible to make entries.
due to the tabulator is not working inside the rtb (it always jumps to
the next TabIndex element), and it is not possible like in a "normal"
textbox to enable/disable the tab, i want to implement following
solution:
1. get the actual position (row,col) of the cursor in the rtb
2. add 10 blanks in the given (row,col)
the first one (getting the acutual position) is already working with:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
lParam
As Long) As Long
Private Const EM_LINEINDEX = &HBB
Private Sub Text1_Change
Dim nLine&
Dim nLineStart&
Dim ActualRow
Dim ActualCol
nLine& = Text1.GetLineFromChar(Text1.SelStart)
nLineStart& = SendMessage(Text1.hwnd, EM_LINEINDEX, -1, 0)
ActualRow = Format$(nLine& + 1, "0")
ActualCol = Format$(Text1.SelStart + Text1.SelLength - nLineStart& +
1, "0"
but for the second task.....
using rtb.find or rtb.setfocus wasn't successful....
thanks in advance,
herb
note: i'm using a "limited" version of vb6.3 (like vba)
|
| Options | 5 answers | Add comment |
|
