Software : Jvw podcast creator
URL : http://www.jvwinc.com/podcast-creator.php
Language : VB 5.0
Price : $29.95
Source code price : $199.00
Features :
-Create podcasts
-Create podcast recording without speaking a word. It converts text to voice.
-Easily create podcast feed by entering details in the textbox.
-Automatically create the enclosure URL which is required for the podcast feed.
-Make it Itunes compatible – Make your podcast available in front of millions of iTunes listeners.
-Convert your ebooks or newsletters or any text file to podcast : Example articles, business messages, lyrics, poems, white papers, forum discussions, tutorials, press releases, emails and more.

Possible applications for podcasting also include:
->Interview authors , leaders, internet gurus in your industry, then offering the interview using a podcast through your website or blog.
->Offer Industry news , critical updates and upgrades info , new releases etc.
->Target niche customers : You can provide ezines, articles or information even when the user is away from his/her computer.
->People who speak at conferences and seminars can offer podcasts of their sessions for those people who were interested but where unable to attend the events.
->Companies can provide critical news and update to their employees and volunteers.

Podcasting and Video blogs are a pretty incredible new technology and you can get the source code or branded application for this latest software at Jvw.

Podcasting / Podcasts :
-> Podcast is an audio file stored on the Internet that customers can download to their computers or MP3 players and listen to whenever they want.
-> Its a Cutting edge tool that can reach millions of potential customers !

Create podcasts :
What Kinds of PodCasts or Videoblogs Could You Make with “Podcast maker 1.0”

• Movie reviews
• Sports commentaries
• Cooking shows
• Political discussions
• Tips on travel destinations
• Interviews with celebrities
• And lots more …

You get master resell rights to this application with the purchase.

Click here to download the VB application with the source code and Sound Just Like A Professional News Anchor The Next Time You Create Your Own Podcasts.

For more applications to resell with source code or rebranding please visit http://www.jvwinc.com/network/offering.html.

To checkout new Podcast software from Jvw click here.

VB Code to change screen resolution

===Start Vb code===
Option Explicit

Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32

Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Const DM_BITSPERPEL = &H40000
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const DM_DISPLAYFLAGS = &H200000
Const DM_DISPLAYFREQUENCY = &H400000

Private Declare Function ChangeDisplaySettings Lib “user32″ Alias “ChangeDisplaySettingsA” (lpInitData As DEVMODE, ByVal dwFlags As Long) As Long
Private Declare Function EnumDisplaySettings Lib “user32″ Alias “EnumDisplaySettingsA” (lpszDeviceName As Any, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ExitWindowsEx Lib “user32″ (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetDeviceCaps Lib “gdi32″ (ByVal hdc As Long, ByVal nIndex As Long) As Long

Const BITSPIXEL = 12

‘ /* Flags for ChangeDisplaySettings */
Const CDS_UPDATEREGISTRY = &H1
Const CDS_TEST = &H2
Const CDS_FULLSCREEN = &H4
Const CDS_GLOBAL = &H8
Const CDS_SET_PRIMARY = &H10
Const CDS_RESET = &H40000000
Const CDS_SETRECT = &H20000000
Const CDS_NORESET = &H10000000

‘ /* Return values for ChangeDisplaySettings */
Const DISP_CHANGE_SUCCESSFUL = 0
Const DISP_CHANGE_RESTART = 1
Const DISP_CHANGE_FAILED = -1
Const DISP_CHANGE_BADMODE = -2
Const DISP_CHANGE_NOTUPDATED = -3
Const DISP_CHANGE_BADFLAGS = -4
Const DISP_CHANGE_BADPARAM = -5

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Dim D() As DEVMODE, lNumModes As Long

Private Sub Command1_Click()
Dim l As Long, Flags As Long, x As Long
x = List1.ListIndex
D(x).dmFields = DM_BITSPERPEL Or DM_PELSWIDTH Or DM_PELSHEIGHT
Flags = CDS_UPDATEREGISTRY
l = ChangeDisplaySettings(D(x), Flags)
Select Case l
Case DISP_CHANGE_RESTART
l = MsgBox(“This change will not take effect until you reboot the system. Reboot now?”, vbYesNo)
If l = vbYes Then
Flags = 0
l = ExitWindowsEx(EWX_REBOOT, Flags)
End If
Case DISP_CHANGE_SUCCESSFUL
Case Else
MsgBox “Error changing resolution! Returned: ” & l
End Select
End Sub

Private Sub Form_Load()
Dim l As Long, lMaxModes As Long
Dim lBits As Long, lWidth As Long, lHeight As Long
lBits = GetDeviceCaps(hdc, BITSPIXEL)
lWidth = Screen.Width \ Screen.TwipsPerPixelX
lHeight = Screen.Height \ Screen.TwipsPerPixelY
lMaxModes = 8
ReDim D(0 To lMaxModes) As DEVMODE
lNumModes = 0
l = EnumDisplaySettings(ByVal 0, lNumModes, D(lNumModes))
Do While l
List1.AddItem D(lNumModes).dmPelsWidth & “x” & D(lNumModes).dmPelsHeight & “x” & D(lNumModes).dmBitsPerPel
If lBits = D(lNumModes).dmBitsPerPel And _
lWidth = D(lNumModes).dmPelsWidth And _
lHeight = D(lNumModes).dmPelsHeight Then
List1.ListIndex = List1.NewIndex
End If
lNumModes = lNumModes + 1
If lNumModes > lMaxModes Then
lMaxModes = lMaxModes + 8
ReDim Preserve D(0 To lMaxModes) As DEVMODE
End If
l = EnumDisplaySettings(ByVal 0, lNumModes, D(lNumModes))
Loop
lNumModes = lNumModes – 1
End Sub
===End Vb code===

Category : Windows operation
Author : Wobbles
Version : Vb 6/Vb 5.
Cost : $0.00

Click here for more vb code.

===Start Vb code===
Private Sub Command1_Click()
‘Launch Windows Add New Hardware wizard
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1″, 5)
End Sub

Private Sub Command11_Click()
‘Launch Windows Sounds Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1″, 5)
End Sub

Private Sub Command12_Click()
‘Launch Windows Display Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0″, 5)
End Sub

Private Sub Command13_Click()
AboutProgrammer.Show
Explorer.Show
End Sub

Private Sub Command14_Click()
Dim intWidth As Integer
Dim intHeight As Integer

intWidth = Screen.Width \ Screen.TwipsPerPixelX
intHeight = Screen.Height \ Screen.TwipsPerPixelY
MsgBox “Screen Resolution:” + vbCrLf + vbCrLf + Str$(intWidth) + ” x” + Str$(intHeight), 64, “Info”

End Sub

Private Sub Command15_Click()
‘Launch Windows Modem Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL modem.cpl”, 5)
End Sub

Private Sub Command16_Click()
‘Launch Windows Password Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL password.cpl”, 5)
End Sub

Private Sub Command17_Click()
‘Launch Windows System Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0″, 5)
End Sub

Private Sub Command18_Click()
‘Launch Windows Multimedia Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0″, 5)
End Sub

Private Sub Command2_Click()
‘Launch Windows Add/Remove Programs Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1″, 5)
End Sub

Private Sub Command3_Click()
‘Launch Windows Date/Time Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL timedate.cpl”, 5)
End Sub

Private Sub Command4_Click()
‘Launch Windows Network Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl”, 5)
End Sub

Private Sub Command5_Click()
‘Launch Windows Internet Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0″, 5)
End Sub

Private Sub Command6_Click()
‘Launch Windows Keyboard Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL main.cpl @1″, 5)
End Sub

Private Sub Command7_Click()
‘Launch Windows Mouse Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL main.cpl @0″, 5)
End Sub

Private Sub Command9_Click()
‘Launch Windows Regional Settings Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0″, 5)
End Sub
===End Vb code===

Category : Windows operation
Author : Aaron Bhatti
Version : Vb 6/Vb 5.

Find article using Jvw Article extractor for content

One of the best way to gain knowledge on Internet technologies and website promotion techniques is by reading articles.With this new software from Jvw (parent company for Fullycoded.com) you can find article and extract it , save it as an html document.Extract articles one by one and make a database of important articles which can help you in improving your webpages or learn techniques which will help you in promoting your website on major search engines.

You may checkout an article at our parent website Jimmy’s Value World : What is better than writing articles for Web promotion ? – Find article and read them !

It also includes an inbuilt FTP client to upload any or all of the articles to your website.

You can buy the VB code at Software reseller page : http://www.jvwinc.com/network/offering.html

===Vb code start===
Declarations
Option Explicit

Private Declare Function NetUserChangePassword _
Lib “Netapi32.dll” (ComputerName As Any, User As Any, _
OldPass As Any, NewPass As Any) As Long

Private Const ERROR_ACCESS_DENIED = 5&
Private Const ERROR_INVALID_PASSWORD = 86&
Private Const NERR_InvalidComputer = 2351
Private Const NERR_NotPrimary = 2226
Private Const NERR_UserNotFound = 2221
Private Const NERR_PasswordTooShort = 2245
Private Const ERROR_CANT_ACCESS_DOMAIN_INFO = 1351

Code
‘Changes the Password for the user “User” on the
‘computer “Server” from “OldPassword” to “NewPassword”
Function ChangeUserPassword(ByVal Server As String, _
ByVal User As String, ByVal OldPassword As String, _
ByVal NewPassword As String) As String

Dim r As Long, msg As String

‘Create Unicode-Arrays
Dim bComputer() As Byte: bComputer = GetByteArray(Server)
Dim bUser() As Byte: bUser = GetByteArray(User)
Dim bOldPassword() As Byte: bOldPassword = GetByteArray(OldPassword)
Dim bNewPassword() As Byte: bNewPassword = GetByteArray(NewPassword)

‘call API-Function
r = NetUserChangePassword(bComputer(0), bUser(0), _
bOldPassword(0), bNewPassword(0))

‘check return value and represent as string
Select Case r
Case ERROR_ACCESS_DENIED: msg = “Error: Access denied.”
Case ERROR_INVALID_PASSWORD: msg = “Error: Invalid password.”
Case NERR_InvalidComputer: msg = “Fehler: Invalid Computer-/Domainname.”
Case NERR_NotPrimary: msg = “Error: This operation can only performed on the

primary domain controler.”
Case NERR_UserNotFound: msg = “Error: User not found.”
Case NERR_PasswordTooShort: msg = “Error: Password does not match Password-Restrictions.

(Password to short, to long or has already been used by this user.)”
Case ERROR_CANT_ACCESS_DOMAIN_INFO
msg = “Error: Error accessing info for domain controler.

Maybe the computer is not available or access was denied.”
Case 0: msg = “Operation performed successfully.”
Case Else: msg = “Error: Unexpected Error ” & r & ” occured.”
End Select

ChangeUserPassword = msg
End Function

‘Converts a Unicode-String to a Unicode-Byte-Array.
‘Is used because VB always passes Strings as ANSI instead of Unicode.
Private Function GetByteArray(ByVal str As String) As Byte()
Dim Buf() As Byte
Buf = str
ReDim Preserve Buf(Len(str) * 2 + 1)

GetByteArray = Buf
End Function
===Vb code end===

Category : Windows operation
Compatibility : VB 6.0
Price : $0.00

Change Desktop wallpaper; also learn how You use Drive ,Dir & File Controls to pick the file anywhere in ur system – create a form, 3 command buttons, image box ,” Drive, Dir, File & combo box”.

===vb code start===

Declarations
Public Declare Function SystemParametersInfo Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Declare Function GetWindowsDirectory Lib “kernel32″ Alias “GetWindowsDirectoryA” (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Declare Function GetSystemDirectory Lib “kernel32″ Alias “GetSystemDirectoryA” (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Const SPI_SETDESKWALLPAPER = 20

Public Sub SetWallpaper(ByVal TxtPath As String)
Dim WP As Boolean
WP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, TxtPath, 0)
End Sub

Code
Dim txtFileName As String

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
File1.Pattern = “*.bmp”
Case 1
File1.Pattern = “*.jpg”
Case 2
File1.Pattern = “*.gif”
Case 3
File1.Pattern = “*.wmf”
End Select
End Sub

Private Sub Command1_Click()
SetWallpaper txtFileName
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
SetWallpaper txtFileName
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()

txtFileName = Dir1.Path & “\” & File1.filename

Image1.Picture = LoadPicture(txtFileName)
End Sub

Private Sub Form_Load()
Dir1.Path = GetWndDir
File1.Path = Dir1.Path
Combo1.Text = Combo1.List(0)

txtFileName = Dir1.Path & “\” & File1.List(0)
Image1.Picture = LoadPicture(txtFileName)

End Sub

Private Function GetWndDir() As String
‘ Display the location of the Windows directory
Dim windir As String ‘ receives path of Windows directory
Dim slength As Long ‘ receives length of the string returned

windir = Space(255) ‘ initialize buffer to receive the string
slength = GetWindowsDirectory(windir, 255) ‘ read the path of the Windows directory
windir = Left(windir, slength) ‘ extract the returned string from the buffer
GetWndDir = windir
End Function

===vb code end===

Category : Windows operation
Compatibility : VB 5, VB 6

This application (CS Tools, version 2) allows you to administer Windows resources (e.g., users, domains, computers) easily. It has so many feature that it can be used as a substitute for the utilities that come with NT and 2000. You can administer users and groups, view, start, and stop services and processes on the local or remote machines, resolve hosts on the network to IP addresses, and much more.

CS Tools is a great administrative tool that any Windows NT/2000 administrator should have.
It is a great timer saver with many features to make the job of administrating hundreds to thousands of users
as easy as 123.

This program can save you days to weeks of work on a huge domain with hundreds to thousands of users with its “Bulk Administration” feature.
Also its remote features.

Alternate Credentials
Be able to specify a different username and password to complete your tasks.
This enables you to administer a network without being logged into it and also do it
over the internet.

Administer Users
Administer any user with the ease as if though you were on the server itself.
Even view some information you cant from windows it self.

Groups
Administer groups and members of groups along with there descriptions
with ease.

Computers
View information on remote computers along with there services, processes and much more.

Remote Command
Remote command lets you open any executable file on a remote machine without having to
install any software on the remote computer itself.
It is completely clientless!

Services
View, Start, Stop, and pause any service on a local or remote machine.

Processes
Be able to view and kill processes from a local or remote machine.

Resolve Host to a IP
Resolve any internet address or computer name on your network to its IP address.

Ping
A small ping utilities is included, better to have everything in one program instead of opening others.

Internet Domain Name Lookup
A little extra, lookup information on a domain with a click of a button.
Example: microsoft.com

Reset Users Password
Reset a users password.

User Migration/Backup
Store allot of information on all or selected users into a database.
With the restore ability you can migration or modify users information to a new or existing server or Domain.

Please click here to buy this item for $9.95 only.

Add basic AUTORUN capability to your A: drive (Put autorun filename as first line of AUTORUN.INF).

Declarations : Add this program to Task Scheduler for When My Computer Starts.Make a timer on the form.
Compatibility : VB 5, VB 6.
Category : Windows operations

===Vb code start===
Sub Form_Load ()
Me.Visible = False
Timer1.Interval = 1000
End Sub
Sub Timer1_Timer ()
Dim f,d
On Error Goto EndSub
f = FreeFile
Open “A:\autorun.inf” For Input As f
Line Input #1, d
Close f
GetAttr f
Shell f
EndSub:
End Sub
===Vb code end===

Access Windows shutdown dialog box from your VB Application.

Compatibility: VB 5, VB 6.

Category : Windows operation.

Includes : None

‘—Visual basic source Code start—

‘Windows Shut Down Dialog.
Private Declare Function SHShutDownDialog Lib “shell32″ Alias “#60″ (ByVal YourGuess As Long) As Long

Code
Private Sub mnuShutdownDialog_Click()
‘
‘Windows Shut Down Dialog. (See Declarations)
SHShutDownDialog 0
‘
End Sub

‘—Visual basic source Code end—

Tag : vb , Windows.

This a power bar like the office bar

It has code to open any file, to get anyfiles icon, a easy way to change the shape of forms and can stay on top of anything (except Ctrl+Alt+Del Taskmanager).

Note :

1. You must add 6 links before the power bar starts to work.
2. Right click on the form to show the options menu.
3. The ‘X’ at the top of the screen is for the program below not for the powerbar.

Compatibility: VB 5, VB 6.

Category : Windows operation.

Includes : setshape.bas and module1.bas.

Tag : vb , software , activex.

Click here to buy this item for $9.95 only.

Delete history using this code :

‘—Visual basic source Code start—

Option Explicit

Private Type guid
w1 As Long
w2 As Integer
w3 As Integer
w4(7) As Byte
End Type

‘ clsid: (shlguid.h) => SHDOCVW.DLL
Private Const clsid_CUrlHistory = “{3C374A40-BAE4-11CF-BF7D-00AA006946EE}”

‘ clsid: (urlhist.h) => IUrlHistoryStg2
Private Const clsid_IUrlHistoryStg2 = “{AFA0DC11-C313-11D0-831A-00C04FD5AE38}”

‘ vtbl: (urlhist.h) => IUnknown-Release()
Private Const IUrlHistoryStg2_Release As Long = 8&

‘ vtbl: (urlhist.h) => HRESULT=ClearHistory()
Private Const IUrlHistoryStg2_ClearHistory As Long = 36&

‘ const: (WTYPES.h) => ClassContext
Private Const CLSCTX_INPROC_SERVER As Long = 1&

‘ const: (WINERROR.h)
Private Const S_OK As Long = 0&

‘ const: (OAIDL.h) => CallConvention
Private Const CC_STDCALL As Long = 4&

Private Declare Function CLSIDFromString Lib “ole32″ ( _
ByVal lpszProgID As Long, ByRef pCLSID As guid) As Long

Private Declare Function CoCreateInstance Lib “ole32″ ( _
ByRef rclsid As guid, ByVal pUnkOuter As Long, _
ByVal dwClsContext As Long, ByRef riid As guid, _
ByRef ppv As Long) As Long

Private Declare Sub DispCallFunc Lib “oleaut32″ ( _
ByVal ppv As Long, ByVal oVft As Long, _
ByVal cc As Long, ByVal rtTYP As VbVarType, _
ByVal paCNT As Long, ByRef paTypes As Long, _
ByRef paValues As Long, ByRef fuReturn As Variant)

‘ historyDelete Delete IE URL-history
‘ CALL: historyDelete()
‘ IN: —
‘ OUT: log success
Public Function historyDelete() As Boolean
Dim ipt As Long ‘ interface-ptr
Dim ret As Variant
Dim oid As guid
Dim iid As guid

CLSIDFromString StrPtr(clsid_CUrlHistory), oid
CLSIDFromString StrPtr(clsid_IUrlHistoryStg2), iid

If CoCreateInstance(oid, 0, CLSCTX_INPROC_SERVER, iid, _
ipt) = S_OK Then

DispCallFunc ipt, IUrlHistoryStg2_ClearHistory, _
CC_STDCALL, vbLong, 0, 0&, 0&, ret

DispCallFunc ipt, IUrlHistoryStg2_Release, _
CC_STDCALL, vbLong, 0, 0&, 0&, ret

historyDelete = True
End If
End Function

Private Sub Command1_Click()
historyDelete
End Sub.

‘—Visual basic source Code end—

This is part of a Security and privacy application to protect yourself.You can use Visual basic version 5.0 or 6.0 for this code.

Please feel free to checkout the advanced History eraser version at http://www.jvwinc.com/eraser.html.

The entire source code for the History eraser and popup blocker available at http://jvwinc.com/eraser.html is on Jvw reseller page at http://resell.jvw.name.

Tag : Vb , Software , Security.