Re: Interact with the telephone system in .Net - Visual Basic Discussion Boards

Re: Help in Steganography

Christian Graus30-Nov-08 12:37

Christian Graus

30-Nov-08 12:37

What text are you converting to bytes ? What the hell are you talking about ?

sarfarazaliqureshi wrote:
problem is this some body told me that any body can hack data from buffor

Sounds like you're surrounded by idiots. If the buffer is memory in your app, it's far from trivial for someone to get at it. If it's in a file, then, of course, any file can be modified by anyone who wants to. What does your app do that you have to worry about such security ? The easy way around is to store a checksum to validate the bytes against.

Christian Graus

Driven to the arms of OSX by Vista.

Re: Help in Steganography

Paul Conrad30-Nov-08 14:09

Paul Conrad

30-Nov-08 14:09

sarfarazaliqureshi wrote:
problem is this some body told me that any body can hack data from buffor

Really? Find that kind of hard to believe. If the buffer is stored as private, then nothing should be able to see it.

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham

Re: Help in Steganography

Mark Churchill30-Nov-08 17:24

Mark Churchill

30-Nov-08 17:24

Stenography is not "hiding your data on the end of an image file". Stenography is doing things like twiddling the least significant bits in an image to hide information - actually hiding the data *in* the image.

Also, yes, people can get access to your processes' memory and read the contents of your buffer.

In your case they will just cat the picture file to the console and read the plaintext.

Mark Churchill
Director, Dunn & Churchill Pty Ltd
Free Download: Diamond Binding: The simple, powerful, reliable, and effective data layer toolkit for Visual Studio.

Alpha release: Entanglar: Transparant multiplayer framework for .Net games.

Re: Help in Steganography

sarfarazaliqureshi1-Dec-08 23:41

sarfarazaliqureshi

1-Dec-08 23:41

Thanks dear but can plz write some code for this line

"In your case they will just cat the picture file to the console and read the plaintext."

actually I have trouble to do this....

update sql server database from access database [modified]

zorronami30-Nov-08 6:25

zorronami

30-Nov-08 6:25

I have made some program that will be used to update the sql server database. The data was taken from Access Database. In other words, i tried to move the data from Access to Sql server. Here is the code that i developed :

Option Explicit

Public dbacc As ADODB.Connection
Public rsAcc As ADODB.Recordset
Public rsSql As ADODB.Recordset
Public dbSQL As ADODB.Connection
Public rsSql2 As ADODB.Connection

Public Sub Update()
Dim updaterec, updaterec2 As String
Dim sPath As String
Set dbacc = New ADODB.Connection
Set rsAcc = New ADODB.Recordset
Set rsSql = New ADODB.Recordset
Set dbSQL = New ADODB.Connection
Set rsSql2 = New ADODB.Connection
Dim sConnACC As String
sConnACC = "Provider=Microsoft.Jet.OLEDB.4.0;Data_ Source=\dbsimonev.mdb;"
Dim sSQL As String
sSQL = "SELECT * FROM tblData"
Dim sSQL2 As String
Dim sSQL3 As String
sSQL2 = "SELECT * FROM T3B_MON"
sSQL3 = "SELECT * FROM T3B_MONK"
dbacc.ConnectionString = sConnACC
dbacc.Open
dbSQL.Open _
"Provider = sqloledb;" & _
"Data Source={SANJILUFFYCOMP};" & _
"Initial Catalog={simonev};" & _
"User ID={UserName};" & _
"Password={Password};"

rsAcc.ActiveConnection = dbacc
rsAcc.LockType = adLockOptimistic
rsAcc.CursorType = adOpenKeyset
Set rsAcc = dbacc.Execute(sSQL)

rsSql.ActiveConnection = dbSQL
rsSql.LockType = adLockOptimistic
rsSql.CursorType = adOpenKeyset
Set rsSql = dbSQL.Execute(sSQL2)

rsSql2.ActiveConnection = dbSQL
rsSql2.LockType = adLockOptimistic
rsSql2.CursorType = adOpenKeyset
Set rsSql2 = dbSQL.Execute(sSQL3)

Do While Not rsSql.EOF
rsSql.MoveNext
Do While Not rsAcc.EOF
rsAcc.MoveNext
If rsAcc(1).Value = rsSql(1).Value Then
If rsSql(3).Value = rsAcc(2).Value Then
If rsSql(2).Value = rsAcc(3).Value Then
If rsAcc(4).Value <> rsSql(17).Value Then
If rsAcc(2).Value = 1 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET01,REALIS01) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET01,REALIS01) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 2 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET02,REALIS02) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET02,REALIS02) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 3 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET03,REALIS03) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET03,REALIS03) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 4 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET04,REALIS04) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET04,REALIS04) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 5 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET05,REALIS05) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET05,REALIS05) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 6 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET06,REALIS06) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET06,REALIS06) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 7 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET07,REALIS07) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET07,REALIS07) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 8 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET08,REALIS08) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET08,REALIS08) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 9 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET09,REALIS09) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET09,REALIS09) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 10 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET10,REALIS10) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET10,REALIS10) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 11 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET11,REALIS11) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET11,REALIS11) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 12 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET12,REALIS12) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET12,REALIS12) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
End If

Set rsSql = dbSQL.Execute(updaterec)
Set rsSql = dbSQL.Execute(updaterec2)
End If
End If
End If
rsAcc.MoveNext
Loop
rsSql.MoveNext
Loop
MsgBox "update is finished"
rsSql.Close
rsAcc.Close
Set rsSql = Nothing
Set rsAcc = Nothing
dbacc.Close
dbSQL.Close
Set dbacc = Nothing
Set dbSQL = Nothing
End Sub

when i compiled it, nothing was error, all worked fine. But the problem is nothing happened to the sql server database when i executed this program. Nothing was updated in the sql server database. What could make it wrong or why didn't something happen??. is it because the code or another else?

Please need your help.

Thanks in advance.

modified on Sunday, November 30, 2008 12:33 PM

Re: update sql server database from access database

Wendelius30-Nov-08 11:25

Wendelius

30-Nov-08 11:25

You propably have some problem in the logic (loops or if statements) so the best way to find it is to use debugger.

Only thing I noticed is that the outer loop is made against SQL Server. You loop while there are records in T3B_MON in SQL Server. If you're moving data to SQL Server, rsSql may be empty so EOF is true. Also you don't seem to use rsSQL2 anywhere.

The need to optimize rises from a bad design.My articles[^]

Interact with the telephone system in .Net

wdeepu30-Nov-08 4:27

wdeepu

30-Nov-08 4:27

Hi All ,

I want to add a fnctionality in my hotel managment project with VB.Net to set a alaram factility to certain extension (room). The alaram is initiated by the front desk operator . Can anyone help me on the same , how can this thing implemented.

Re: Interact with the telephone system in .Net

Wendelius30-Nov-08 4:35

Wendelius

30-Nov-08 4:35

You mean something like: Telephony Application Programming Interfaces[^]?

The need to optimize rises from a bad design.My articles[^]

Re: Interact with the telephone system in .Net

Paul Conrad30-Nov-08 6:39

Paul Conrad

30-Nov-08 6:39

You beat me to it.

Re: Interact with the telephone system in .Net

Wendelius30-Nov-08 12:09

Wendelius

30-Nov-08 12:09

For once it happened this way Smile | :)

The need to optimize rises from a bad design.My articles[^]

Re: Interact with the telephone system in .Net

Paul Conrad30-Nov-08 14:09

Paul Conrad

30-Nov-08 14:09

I think it happens often, but never really noted.

Re: Interact with the telephone system in .Net

wdeepu30-Nov-08 18:09

wdeepu

30-Nov-08 18:09

Paul!

I am not sure wat do u want to say!

Re: Interact with the telephone system in .Net

Paul Conrad30-Nov-08 18:12

Paul Conrad

30-Nov-08 18:12

I was responding to what Mika said.

Re: Interact with the telephone system in .Net

wdeepu30-Nov-08 20:58

wdeepu

30-Nov-08 20:58

Mika!

Can u help me with some Code or API

Thanks in Advance

Re: Interact with the telephone system in .Net

Wendelius1-Dec-08 4:39

Wendelius

1-Dec-08 4:39

I've got nothing I could share but if you Google a bit I'm sure you find examples that are suitable for you. For example: http://www.google.com/search?hl=en&q=microsoft+tapi+example+vb+net[^]

The need to optimize rises from a bad design.My articles[^]

Shutdown Computer

Pasan14829-Nov-08 22:58

Pasan148

29-Nov-08 22:58

How to write a program to shutdown, restart and log off the computer by using VB.NET 2005

Re: Shutdown Computer

Wendelius29-Nov-08 23:13

Wendelius

29-Nov-08 23:13

A quick search on articles returned several good hits. Have a look: http://www.codeproject.com/info/search.aspx?artkw=shutdown+computer&sbo=kw[^]

The need to optimize rises from a bad design.My articles[^]

Re: Shutdown Computer

Pasan14830-Nov-08 3:44

Pasan148

30-Nov-08 3:44

Thanks Mika for your help

Re: Shutdown Computer

Wendelius30-Nov-08 4:35

Wendelius

30-Nov-08 4:35

No problem.

The need to optimize rises from a bad design.My articles[^]

Re: Shutdown Computer

Paul Conrad30-Nov-08 6:42

Paul Conrad

30-Nov-08 6:42

I second Mika with the search tool on this site. Use it and use it well since you can find alot of awesome gems around here Big Grin | :-D

Re: Shutdown Computer

mohantech30-Nov-08 23:03

mohantech

30-Nov-08 23:03

shutdown -t 0

VB2008 and Outlook 2007 - Trying to pull contacts from a specific contact folder

rdean3029-Nov-08 15:03

rdean30

29-Nov-08 15:03

If VB6 it was simple, but this is what I have.

'My Bee Contacts' represents a contact folder in Outlook. But the code refuses to find it unless I use the .PickFolder command and actually select it. Which I don't want to do. I simply want to enter a name in a textbox, like 'My Bee Contacts' then the code runs through the contacts in that folder- then I can dump them in a file or use Messagebox to display them ... etc.

Dim OutlookApplication_definst As New Microsoft.Office.Interop.Outlook.Application
Dim olApp As Microsoft.Office.Interop.Outlook.Application
Dim objName As Microsoft.Office.Interop.Outlook.NameSpace
Dim Folder As Microsoft.Office.Interop.Outlook.MAPIFolder

olApp = OutlookApplication_definst.Application
objName = olApp.GetNamespace("MAPI")
Folder = objName.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderContacts).Folders("My Bee Contacts")

For Each Item In Folder.Items
If Len(Trim(Item.JobTitle)) = 0 Then Item.JobTitle = "(none)"
If Len(Trim(Item.ManagerName)) = 0 Then Item.ManagerName = "(none)"
MessageBox.Show(Item.JobTitle & "|" & Item.Email1Address & "|" & Item.FullName & "|" & Item.ManagerName)
Next Item

olApp = Nothing
Folder = Nothing
objName = Nothing

programming on an excel file

AmbitiousBeginner29-Nov-08 0:17

AmbitiousBeginner

29-Nov-08 0:17

there is an excel file which is programmed with vb but the buttons in it doesn't work and it has compile time error when you click on them. can we by any chance see the source code or solve this problem?

Re: programming on an excel file

Dave Kreskowiak29-Nov-08 4:56

Dave Kreskowiak

29-Nov-08 4:56

Hit Alt-F11 to open the code editor.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: programming on an excel file

Smithers-Jones29-Nov-08 4:58

Smithers-Jones

29-Nov-08 4:58

Member 2069064 wrote:
but the buttons in it doesn't work

Check whether macros are enabled

Member 2069064 wrote:
can we by any chance see the source code

Alt-F11

Member 2069064 wrote:
solve this problem?

Since you don't even know how to open tha vba-editor I have my doubts about that.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.